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EDITORIAL JOTTINGS 


Last month saw the first article in our new regular 
series for newcomers to computing on the Beeb — 
First Course. Despite Acorn’s much-publicized 
troubles, new BBC micro owners are still to be found 
in as large numbers as ever, and BEEBUG intends to 
continue to support all Beeb owners, regardless of 
experience, as earnestly as we have in the past. 

New and established members alike will be 
interested in another new magazine feature starting 
this month. The software arm of BEEBUG, has been 
given a voice in the form of the BEEBUGSOFT Forum. 
A page of the magazine has been devoted to bringing 
you news of new BEEBUGSOFT products and help 
with the old ones. 

The recent Acorn User show was well attended 
and provided an opportunity for members to see all 
these BEEBUGSOFT products demonstrated and to try 
them out for themselves. There is a similar 
opportunity to view the software and meet the people 
behind BEEBUG at the Micro User Show at the 
Horticultural Halls in London between November 14th 
and 17th. 

This month’s magazine cassette/disc contains a 
couple of extra items. The full disc benchmark 
program is there for members interested in how the 
results published in the Double Density Disc Systems 
review, in this issue, were obtained. The program 
runs on single density systems too, so you may like to 
test out your own DFS if you have one. 

The second extra on the cassette/disc is a bit 
unusual, for BE UG at any rate. We have included 
one of the demonstration programs from Glentop’s 
3D Graphics Development System. This self-contained 
program will show you just the kind of sophisticated 
three dimensional animation that this package is 
capable of. See the back cover for the full details of all 
the programs on the magazine cassette/disc. 


PROGRAM CLASSIFICATION 


All programs in the magazine, and on the 
magazine cassette/disc, are marked with the symbols 
shown below. An uncrossed symbol indicates full 
working, a single line through a symbol shows partial 
working (normally some modifications will be 
required), and a cross through a symbol indicates a 
program that will not work on that system. 
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Logically speaking 

Thanks to Peter Lewis 
for some interesting 
tutorials on the use of 
logic (see BEEBUG Vol.4 
Nos.2 & 3). Here is a 
quirk that puzzled me: 

FOR J= TO 5:PRINT 
J, (J MOD 2) :NEXT 


This worked OK but not 
this extension: 

FOR J=Ø TO 5:PRINT J, 
(J MOD 2);:IF (J MOD2) PR 
INT " odd" ELSE PRINT " e 
ven":NEXT 


I changed the IF state- 
ment to: 

IF NOT(J MOD 2) PRINT 
" even" ELSE PRINT " odd" 
:NEXT 


and then to: 

IF (J MOD 2) PRINT " 
odd":NEXT ELSE PRINT " ev 
en" :NEXT 


With this, I finally 
discovered that the IF 
must include its own NEXT 
as well as the ELSE. 


More tutorials please. 
Dennis Kemp 


As Dennis Kemp found out, 
you can easily run into 
problems if you have NEXT 
in an IF-THEN-ELSE state- 
ment. The same can happen 
with REPEAT-UNTIL. It is 
best to avoid this 
situation altogether by 
using a different 
programming technique. 


For example, in the above 
set types (Ø)=" even" and 
type$ (1)=" odd". The IF 
statement that caused all 
the trouble can then be 
replaced by: 

PRINT types (J MOD 2):NEXT 
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A Point of View 

Users of View |.4 may 
be interested to know 
that they can obtain View 
2.1 in exchange for £10 
and the 1.4 ROM from 
Acornsoft at Cambridge 
Technopark, 645 Newmarket 
Rd, Cambridge CB5 8PD. 
The two revised manuals 
"Into View" and "View 
Guide" are £2.50 each. 
However, View 1.4 users 
already have two good 
manuals. All we need is a 
note of the differences. 
The details (with thanks 


to BEEBUG ) are as 
follows: 
PRINT, SHEETS and SCREEN 


may be used on text in 
memory without saving it 
first. Just issue the 
command without a file 
name. 


A new stored command, LJ 
(left justify), works in 
a similar fashion to RJ 
(right justify). 


A new command FOLD can be 
used with the CHANGE 
command. With FOLD on 
(FOLD 1) characters being 
changed retain their 
original case. With FOLD 
off (FOLD Ø) characters 
to be changed take on the 
case supplied by the user 
(e.g. you can now change 
'BASIC' to 'Basic', 
impossible before. 
Joyce Diment 


Clarss Distinction 

The new Computer Con- 
cepts Speech ROM is a 
beautiful chip. Within 
minutes of installing it, 
I was able to produce 
quite a long sentence 
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which was absolutely 
intelligible and with 
"expression". But then I 
thought I had found two 
glaring omissions, the 
sound for "AW" as in 
"awful" or "law", and the 
sound for "AH" as in 
"task". | They give for 
these, respectively, "OR" 
and "AR", and actually 
give examples "sor" for 
"saw" and "clarss" for 
"class". 


I am not especially 
for  clarss distinction 
but this is orful! How- 
ever, I find on closer 
listening, that they do 
indeed pronounce "AR" as 
"AH", leaving one obliged 
to use an "AH" sound for 
"are". One can go too 
fah! 


Regarding clarity, I 
realised that as I knew 
what I intended, that was 
what I heard when listen- 
ing to the result. So I 
made a recording of some 
longer sentences and ask- 
eda group of blind, or 
nearly blind, people to 
listen. The general ver- 
dict was that they needed 
to hear it at least three 
times before the meaning 
was clear. I was rather 
crestfallen as I thought 
it was pretty good. Maybe 
the speed is just a 
little too fast. 

M.B.Dearlove 


We are hoping to review 
this new Computer Con- 
cepts ROM in the near 
future. The point about 
knowing what to expect is 
a good one which we will 
take up in our review. 

: s= 
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the first 
We hope 


Welcome to 
BEEBUGSOFT Forum. 
to make this page a regular 


feature in BEEBUG magazine 
to give us, at BEEBUGSOFT, 
a chance to keep you, the 
members, up to date on 
software developments. 


We will also use this 
page to answer some of the 
questions on  BEEBUGSOFT 
products that we are most 
frequently asked by 
members, and to give some 
hints and tips about using 
BEEBUGSOFT products. If you 
wish to raise any points 
concerning our products, 
ask any questions, or make 
any contributions that you 
feel would be of interest 
to other members, please 
write to BEEBUGSOFT Forum 
at the Editorial address. 


We are always pleased 
to receive suggestions and 
ideas, and as you will have 
Seen from last month's 
price list, we are happy to 


evaluate members programs 
and consider them for 
inclusion in the next 


BEEBUGSOFT catalogue. 


WHO ARE BEEBUGSOFT? 


BEEBUG Publications and 


BEEBUGSOFT are entirely 
Separate entities, with 
separate staff. We are 
however, located in the 


same offices and often work 
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closely together. Our aims 
are similar: to produce, 
respectively, the magazine 
and the software that will 
be of interest to you, the 
members. 


WORDEASE 


At the Acorn User 
exhibition we launched our 
new WordEase program, a 
utility to assist with, and 
add to, Wordwise Plus. If 
you have any queries on 
WordEase, or suggestions 
for any further extensions 
to Wordwise Plus, we'd be 
pleased to hear from you. 


PAINTBOX II 
OR PAINTMASTER? 
Our popular drawing 
package, Paintbox II, has 


been renamed 'Paintmaster'. 
A company called Quantel 
has a prior registration of 
the name Paintbox, and has 


requested that we rename 
our program to avoid 
possible confusion. 


Paintmaster is identical in 
every way, except name, to 
Paintbox II. 


NEW BEEBUG DISCS 


We have just increased 
our range of BEEBUG blank 
discs. We can now offer 4 


types of disc to meet your 
exact requirements: 
Ss dd 48TPI ds dd 48TPI 
ss dd 96TPI ds dd 96TPI 
Unfortunately we have also 
had to pass on a small 
increase in price. Full 


details are on the inside 
back cover of BEEBUG. 


EXMON II HINT 


Exmon II is able to 
assemble directly from disc 
using files created on a 
wordprocessor such as 
Wordwise, giving a number 
of advantages, including 
greater available memory. 


This useful facility is 
covered in the Exmon manual 
(see page 26) but many 
users seem unaware of it. 


QUITTING MASTERFILE 


When using Masterfile 
II it is essential that you 
use option "P" to quit the 
program, as described in 
the manual. If you press 
the Break key you may cause 
damage to your data because 
files will not have been 
updated and closed in a 
correct manner. 


LICENCES 


All BEEBUGSOFT products 
are subject to copyright. 
Unauthorised copying, apart 
from the production of one 
backup copy only for use by 
the purchaser, is strictly 
prohibited. However, we 
operate a licensing scheme 
to allow schools and 
colleges to have access to, 
and to produce, multiple 
copies of our programs at 
special rates. Further 
details are available from 
the Software Manager at the 
St. Albans address. 


COMING SOON 
We will shortly be 
increasing the amount of 
software and hardware 


available from BEEBUGSOFT. 
Watch this space for 
further information. 


NEW TELEPHONE NUMBER 


Please note our 
telephone number for order 
queries and for technical 
enquiries is: 


new 


St. Albans (0727) 40303. 

All telephone orders 
should still be placed on 
04948] 6666. 


o Å 


Aries the Ram 


Aries Computers, the 
first to produce a shadow 
RAM board for the Beeb, has 
now released a new version 
offering 32K extra RAM. 
This is 20K screen memory 
and 12K sideways RAM, along 
the same lines as the Bt, 
and includes a sideways ROM 
Socket to take the 
controlling ROM. The B-32 
board costs £92 from Aries 
on Ø223-862614. 


Music Countdown 

Hybrid Technology, 
designer of the Music 954990, 
has previewed further 
models to extend the range, 
for a November release. The 
Music 400 is the  long- 
awaited keyboard, the Music 
200 is an interface to the 
industry standard MIDI 
specification and the Music 
109 is a monitor amplifier 
offering 4 watts per 
channel. The music control 
language, Ample, to look 
after all of these, is to 
appear in new clothing as 
the 'Ample Nucleus' in ROM. 
Reviews of all coming soon. 
Hybrid also has an audio 
tape of the Music 500 in 
action for potential users. 
The tape costs £1.95 from 
Hybrid on 0223-316910. 


Keynotes 

Two new numeric keypads 
have arrived on the Beeb 
scene. Keypad from Commer- 
cial products  (0293-30174) 
costs £44.95 and connects 
in parallel with the main 
keyboard and so is totally 
compatible with all soft- 


ware. It offers the numbers 
0-9, decimal point and 
Return. The Kenpad costs 


News News News News News News......... 


£60 from  K. Blanchard 
(04446-41290), one of the 
authors of Acornsoft's 


Termulator, and is designed 
for use with that ROM. It 


plugs into the User Port 
and offers 9-9, point, 
Return, and four special 
function keys. 
Multi-Tasking 
Multi-Basic is a side- 
ways ROM that adds 


multi-tasking ability to 
your Beeb. Up to 8 
background tasks, written 
in standard BBC Basic, can 
be operative at one time 
and triggered by time or 
logical conditions. The ROM 
also includes several I/O 
control commands for 
interfacing enthusiasts. 
Multi-Basic costs £34.95 
from CMS on 0371-5666. 


The Disc Drive's Friend 

BS-DOS is the latest 
DFS for the Beeb from CUC. 
BS-DOS costs £39.58 and 
works alongside any 
Acorn-type DFS to provide 
several enhancements. 
Double sided disc drives 


are now configured as 
single drives, across the 
two surfaces, with up to 
256 files. | BS-DOS is 


compatible with all second 
processors (including 
Torch) and supports all the 
normal OS calls. Further 
details from CUC on 91-311 
2855, 


Space Bits 

A self-contained, 
simple to use satellite 
data receiving and decoding 
package is available for 
the BBC micro. Astrid will 


receive, decode, store and 
display data from UoSAT 1 


and 2. Astrid costs £149 
from MM Microwave on 
8751-75455, 
Bilbo IT 

The infamous Hobbit 
adventure from Melbourne 
House (01-940 6064) is now 
available in a much 


expanded form on disc for 
the Beeb. The new Hobbit 
has more locations and over 


50 ` graphic screens and 
costs £17.95. 
More Teletext 

Morley Electronics has 


released a teletext adaptor 
for the Beeb. The Morley 
adaptor connects to the 
User Port and, along with 
the inevitable sideways 
ROM, enables your Beeb to 
receive all teletext 
information and to down 
load programs. The tuning 
of the receiver is entirely 
under software control. The 
adaptor with ROM and power 
supply costs £100. 


The Case for the Beeb 

Oak Computers has 
launched a new and 
impressive looking cabinet 
for your BBC micro. Moulded 
in light grey plastic, the 
"Personal Computer' range 
has a detached keyboard and 
a main cabinet which can 
house the main circuit 
board, power supply, disc 
drives, second processor, 
modem, etc. Prices start 
from £100. Further details 
from Oak on 0274-614167. 


sa 
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Recursive Trees 


William Godwin uses the 
technique of recursion to 
produce a veritable forest of 
delights. 


In the world of home micros the BBC 
micro stands out as having one of the most 
powerful recursion facilities. This 
program exploits this technique to the 
full to produce a variety of tree designs. 


To create a tree, the various 
parameters that define the tree's features 
are first edited. These are explained in 
full in the program notes section, but 
briefly they comprise the tree's height 
width and density of branches. To select a 
parameter, you move the flashing cursor 
across the screen using the left and right 
cursor keys. Then you can either type ina 
new value for the parameter by first 
pressing the space bar, or use the up and 
down cursor keys to change the current 
digit of the value displayed. 


For example, to change the number 190 
to the number 200, you could place the 
cursor anywhere underneath the number, 
press the space bar and enter the new 
value, 200. Alternatively, you could place 
the cursor under the digit 1 and press the 
cursor up key to alter the digit 1 to a 2. 


Each time you alter a parameter, the 
basic shape of the tree is drawn. This is 
not an exact copy of how the tree will 
finally look; it will be much more complex 
than this. It is just a rough guide. 


When you are satisfied with your 
parameters, pressing the Return key will 
then start the drawing of the tree. If you 
get fed up with waiting for a certain tree 
to be drawn, as you will with one that 
involves a high level of  recursion, 


pressing the Delete key will halt the 
drawing of the tree and allow you to 
return to the 'edit mode'. 


The trees can take a long time to be 
drawn. The time taken is largely dependant 
on the value for 'TWIG'. Small values, 
such as 8, give very detailed trees that 
take a long time. Try larger values until 
you are satisfied with the general shape 
of the tree. 


The trees produced by the program can 
be dumped to any Epson-compatible printer 
by pressing the Tab key. This initiates 
the screen dump routine in PROCgemini. If 
you have a printer that is not 
Epson-compatible you can insert your own 
Screen dump routine in the procedure, 
PROCgemini and call it appropriately from 
line 2180. Alternatively you can call one 
of the various screen dumps in ROM from 
this line (*GDUMP for Printmaster, for 
example) and leave out PROCgemini (and 
line 138) altogether. 


RECURSION 


A recursive routine is one that calls 
itself. Obviously such a state of affairs 
could go on forever in an endless loop. 
The usual implementation of recursion in 
BBC Basic, therefore, is a function or a 
procedure that calls itself only if a 
particular condition is met. The condition 
in the case of this program is the length 
of the current branch being drawn. The 
drawing process - splitting the current 
branch recursively - is repeated until the 
branch is smaller than TWIG. 


PROGRAM NOTES 


The size and shape of the tree is 
determined by six parameters: 


TWIG This gives the size of the 
smallest detail. The tree is 
drawn by drawing a smaller 


branch on each branch until the 
twig size is reached 

TREE This gives the height of the 
main tree trunk 
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ANGLE This is the angle at which new 
branches grow. A new branch 
would grow at right angles to 
the previous one if an angle of 
90 degrees was stated 


LIMB This value governs the 
thickness of a limb (branch) 

HIGH This determines approximately 
how high up a new branch will 
grow 

LONG This gives the relative length 


of a limb. The maximum value is 
999, but high values usually 
cause too much recursion 


10 REM PROGRAM TREE 

20 REM VERSION BØ.2 

30 REM AUTHOR W.GODWIN 

40 REM BEEBUG OCTOBER 1985 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


100 ON ERROR GOTO210 

118 MODEl:PROCintro 

120 N3=5:DIM param(N%) ,code%&86 

130 IF code%?&85<>&60 PROCgemini 

140 F3=6:Q3=F3 

150 FOR J$-0 TON%:READ param(J%) :NEXT 

160 Jè=Q:REPEAT PROCedit 

178 PROCtree (tall, twig,640,8,trunk,H,u 
p, down) 

180 *FX15 1 

190 IFGET-9 PROCprint 

200 UNTIL FALSE 

218 ON ERROR OFF:*FX4 

220 MODE7:REPORT:PRINT" at line ";ERL 

230 END 

240 : 

1000 DEF PROCedit:*FX4 1 

1010 K$21:Y$-F$-1:VDU22,1:1F FNtest THE 
N210 

1020 PROCdisplay 

18030 REPEAT PRINTTAB(F%*J%+Y%,31); 

1040 A%=GET 

1050 IFA$-32PRINTTAB (F$*J241,31) ">>"; :I 
NPUTTAB (4,29) "VALUE", K: PROCal ter (K-param 
(J%)) 

1060 IFA$-138PROCalter (-K$) 

1070 IFA$-139PROCalter (K3) 


1080 IFA$-136PROCleft 


DEE — OC M———M————————— 8 
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1098 IFAS=137PROCright 

1100 UNTILA$2-13:VDU22 ,0: ENDPROC 

POCS 

1120 DEF PROCalter (X%) param (J%)=param(J 
$)4X$ 

1125 IFFNtest param(J%)=param(J%)-X%:EN 
DPROC 

1130 CLS: PROCdisplay: ENDPROC 

1140 : 

115Ø DEF PROCleft 

1160 IFKS<1ØØØKS=K%*1|Ø: Yè=Y 3-1 : ENDPROC 

1170 IFJ$50J$-J$-l:K$-1:Y$-F$-1 

1180 ENDPROC 

1190 : 

1200 DEF PROCright 

1210 IFK%>1K%=K@DIV1G: YS=Y%+1 : ENDPROC 

1220 J$- (J$*1)MOD (N%+1) :K3=1:Y3=F%-1:EN 
DPROC 

1230 : 

1240 DEF PROCdisplay 

1250 PROCtree(tall,tall*tall-1,640,8,tr 
unk,H,up,down) 

1260 PRINTTAB (0,30) " 

LIMB HIGH LONG" 

1270 FORI$-0TON$:COLOURI $MOD2+1 : PRINTpa 
ram(I$),;:NEXT 

1288 ENDPROC 

1290 : 

1300 DEF FNtest 

1318 IFparam(Ø)<2THEN=TRUE ELSEtwig-par 
am (Ø) *param (Ø) 

1320 theta-PI-RADparam(2):phi-PI-RADpar 
am (3) -theta:CT-COStheta: ST=SINtheta:CP=C 
OSphi:SP-SINphi 

1330 H-param(4)*.001:up-param(5)*.001:K 
=up*ST 

1340 down=K/SP:D=K* (CT/ST+CP/SP) :E=1-H- 


TWIG TREE ANGLE 


D 
1358 tall-param(l):trunk-tall/TAN ( (thet 
atphi)*.5) 
1360 IFtall<Ø OR E<@ OR D<@ OR H<Ø THEN 
=TRUE 
1379 IF5@*LNup>LN (twig/tall/tall)THEN-T 
RUE 
1380 IF50*LNdown>LN (twig/tall/tall) THEN 
=TRUE 

1390 =FALSE 

1400 : 

1418 DEF PROCtree(tall,twig,P,Q,trunk,H 
,up,down) 
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1420 P=P-trunk:MOVEP,Q:PROCuptree (trunk 
,tall) :PROCdowntree (trunk,-tall) 

1430 ENDPROC 

1440 : 

1450 DEF PROCuptree (X,Y) :LOCALU,V,K,F 
1460 K=H-RND (1) * (H* (HXE) *E* (E<H) ) :F=1— 
-K 

1470 IFX*X+Y*Y<twig PROCline(X,Y):ENDPR 
OC 

1480 PROCline (K*X,K*Y) :PROCturn (CT,ST) : 
PROCuptree (up*U , up*V) 

1490 PROCturn(CP,-SP):PROCdowntree (down 
*U , down*V) : PROCuptree (F*X,F*Y) 

1500 ENDPROC 

1518 3 

1520 DEF PROCdowntree (X,Y):LOCALU,V,K,F 
1530 K-H-RND (1) * (H* (H<E) *E* (EH) ) :F=1-D 
-K 

1540 IFX*X+Y*Y<twig PROCline(X,Y):ENDPR 
OC 

1550 PROCdowntree (F*X,F*Y) : PROCturn(CP, 
SP) : PROCuptree (down*U , down*V) 

1560 PROCturn(CT,-ST):PROCdowntree (up*U 
,Up*V) : PROCl ine (K*X,K*Y) 

1570 ENDPROC 


D 


1580 : 

1590 DEF PROCturn(C,S) :U=X*C-Y*S: V=X*S+ 
Y*C: ENDPROC 

1600 : 

1618 DEF PROCline(X,Y) 

1620 IFINKEY (-90) twig=1E6 

1630 P=P+X:Q=0+Y : DRAWP ,Q: ENDPROC 

164Ø DEF PROCintro 

1658 COLOUR2 

1660 PRINT'" TREE DESIGNER" 

1670 PRINT'"Use the ARROW KEYS to alter 
parameters" 

1680 PRINT'" or SPACE to enter a va 
lue;" 

690 PRINT'" Press RETURN to draw the T 
REE" 

1709 PRINT'" (then DELETE to escape)" 

1718 PRINT'" or TAB to send to pr 
inter." 

720 PRINT'" Press SPACE to continue."' 
:IFGET 

1730 ENDPROC 

740 DATA90,900,150,4,100,650 

1750 : 


1768 


DEF PROCgemini 


1778 COL=&79 : ROWS=&71 : LOC=&72: STO=&74 :W 
R=&FFEE:FX=&FFF4 


178Ø 
179Ø 
18ØØ 


FORI $=QTO2STEP2: P%=code%: [OPTI$ 
LDA#2:JSR WR 
LDA#27:JSR PR:LDA#65:JSR PR:LDA#8: 


JSR PR 


LDA#&84:JSR FX:STX LOC:STY LOC+1 
LDA#32:STA ROWS 

„BEGIN 

LDA#8Ø:STA COL 

LDA#27:JSR PR:LDA#76:JSR PR:LDA#12 
PR:LDA#2:JSR PR 

.BLOCK 

LDY#7 

» FETCH 

LDA (LOC) ,Y:STA STO,Y 
DEY:BPL FETCH 

LDY#8 

„SEND 

LDX#7 

«PINS 

ASL STO, X:ROR A 

DEX:BPL PINS 

JSR PR 

DEY :BNE SEND 

LDA LOC:CLC:ADC#8:STA LOC 
BCC NOC 

INC LOC+1 

« NOC 

DEC COL:BNE BLOCK 
LDA#13:JSR PR 

DEC ROWS:BNE BEGIN 
LDA#27:JSR PR:LDA#48:JSR PR 
LDA#3:JSR WR 

RTS 

e PR 

PHA:LDA#1:JSR WR 

PLA: JSR WR:RTS 

]NEXTI$ 

PRINT^P$:ENDPROC 

DEF PROCprint:*FX3 10 
FORI$-0TON$:PRINTparam (I$), ; : NEXT: 


*FX3 
CALLcode% : ENDPROC 


el 
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Glentop”s 3D 
Graphic 
System 


Geoff Bains takes a look at a new 
versatile graphics development 
system that promises to get more 
from your Beeb's screen than you 
ever thought possible. 


Product : Graphics Development System 
Supplier: Glentop Publishers, 
Freepost, Barnet, 
Herts. 
91-441 4130 
Price  : £25.00 


There are many graphics systems on the 
market for the BBC micro. These will allow 
you to create pictures of varying 
complexity on your Beeb's screen and 
display them. What all these packages 
lack, however, is any real application for 
the resulting pictures. All you can do is 
to save them to cassette or disc and load 
them in again at a later date. 


The Graphics Development System from 
Glentop Publishers, however, is a 
different story. This unique package 
allows you to create wireframe 
representations of 3D objects on the 
Screen, manipulate them in a variety of 
ways and then to use the resulting images 
in Basic or assembler programs to produce 
some stunning animated images. 


The graphics creation programs are a 


little different from many on the market. 


This package is exclusively concerned with 
wireframe models. There is no block 
filling, shading, or even much in the way 
of colour. The models are defined as a 
series of three-dimensional co-ordinates, 
representing each point of the wireframe, 
entered into an editor. As well as the 
co-ordinates each point is also defined as 
a draw or move operation with the colour 
and type (solid or dotted) of line used. 


The data tables produced by the editor 
can be saved onto disc and reloaded for 
further editing. Unfortunately there is no 
option to insert extra points into the 
middle of a data table; these can only go 
onto the end. This does mean that 
alterations can take up unnecessary extra 
table entries. 


Once an object's data is entered it 
can be viewed on the screen. The program 
displays a perspective projection of the 
wireframe and allows you to alter the 
viewpoint and perspective, and to perform 
rotations, scalings, and translations in 
three dimensions. The various parameters 
are displayed alongside the image and are 
altered using the cursor keys. 


That's all very well but it doesn't go 
very much further than the 3D Rotation 
program in BEEBUG Vol.l No.1Ø. However, 
the Graphics Development System doesn't 
stop there. Shapes can be rotated about 
any of the three axes to form surfaces. 
The program to do this is very versatile, 
allowing either the lines parallel or 
perpendicular to the axis of rotation only 
to be created, or both, and the angle 
through which the rotation is performed 
and the step size to be altered at will. 
The creation of such 'profiles' is, like 
all the operations in the Graphics 
Development System, extremely fast. 


Any wireframe model can be used as a 
'macro' and stretched, translated, 
rotated, enlarged in different ways with 
each result saved. All these new models 
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can be then linked together to form a new 
creation. In this way complex models can 
be built up with the minimum of data 
entry. The interlocking rings shown here, 
for example, were created by manipulating 
a simple diamond shape (five data entries 
only!). This was turned about one axis to 
give a profile and the resulting ring used 
as a macro. This was translated and 


rotated to form the two rings which were 
then linked together to form the whole 
picture. 


The only limit to this model creation 
is the Beeb's memory. The Graphics 
Development System operates perfectly with 
the 6582 second processor, however, so 
larger models are available with this 
connected. The package also has a disc and 


printer dump option allowing you to save 
your masterpieces in a more immediate 
form. 


The model-creation section of the 


Graphics Development System is very 
effective but it is somewhat eclipsed by 
the other half of the package - the 


programs to help you make some use of the 
models you have created. These consist of 
two types. Firstly there are the machine 
code routines that can operate on the data 
that represents the 3D co-ordinates of an 
object. These are all bundled together in 
one group in a variety of formats for use 
with different systems - cassette, disc, 
or second processor - and in different 
memory positions. 


To access these routines there is 
provided the beginnings of a Basic program 
with procedures already defined to access 
the machine code. To display the image of 
an object, then, you just load the machine 
code, load the data, and run the Basic 
program suitably amended to include calls 
to the procedures required (PROCgcol, 
PROCtrans, PROCrot, PROCproject, etc.). 


Objects can be animated 
and several demonstrations 
provided on the disc. However, 


in this way 
of this are 
better 


IMAGE 
IROTAT 


animation can be achieved by resorting to 
assembler to access the 3D routines rather 
than Basic. This again is fairly simple as 
it is really just a case of calling up the 
routines when needed. However, really fast 
animation can be achieved by using another 
feature of the Graphics Development 
System. 


The Beeb's OS can plot lines on the 
screen at the rate of about 29,000 pixels 
per second. The Graphics Development 


System contains its own line drawing 
routines that will draw at a rate of 
30,000 pixels a second. Although it has 
some restrictions (pixel co-ordinates, 


GCOLØ type plotting only, no windows or 
redefinable origin, and it will not work 
with second processor) the speed 
difference can be staggering. A marvellous 
Elite-type space craft performs a complex 
turning manoeuvre without a suggestion of 
flicker in one of the demonstrations. (We 
have included this demo on this month's 
magazine cassette/disc so you can see the 
effect to the full). 


All this takes some getting to grips 
with. The manual is adequate but better 
tutorials could be given. However, if you 
are looking for a package that will really 
take your Beeb to the limits of graphics 
and animation for a reasonable price, then 
the Graphics Development System delivers 
the goods. üc- 
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Dynamic memory 
= display ——— 


The BBC micro’s event system 
provides Sebastian Lazareno 
with a dynamic and fast moving 
window onto the Beeb's inner 
workings. 


Many readers will appreciate the value 
of a static memory dump, giving a snapshot 
of the micro's memory, but such a display 
does not show changes in RAM as they 
occur, This program provides a dynamic 
memory window, allowing you to observe the 
Beeb's memory in real time while using the 
keyboard, running other programs 
(including ROMs), or just 'resting'. The 
program can also display the contents of 
any sideways ROM, and is particularly 
useful for monitoring sideways RAM. 


PROGRAM ENTRY 

Save the program before you run it, 
since an error may cause the computer to 
hang. Cassette users should alter the 
value of 'code' in line 160 to &CØØ. 


USING THE PROGRAM 

When you RUN the Basic program you 
will be asked for the start address of the 
display (i.e. to display zero page, enter 
9). The default display start is at PAGE. 


The main routine extends through page 
9 without intruding into page 10 (Toolkit 
workspace). It displays the contents of 48 
bytes of memory in 'dump' format at the 
top of a mode 7 screen. You can scroll 
through memory using the vertical cursor 
keys with Shift (slow) or  Ctrl-Shift 


(fast). The routine is called 50 times a 
second by the 'start of vertical syne! 
event. According to the Advanced User 


Guide (p.288) such routines should not 
last more than about 2 milliseconds. This 
one takes about 5.2 milliseconds, but 
problems are avoided as the full routine 
is called by only a proportion of the 
events generated. 


The number of events per complete 
execution is initially set to 5 but can be 
altered using Shift along with the 
horizontal cursor keys. The ratio is shown 
at the bottom of the display, together 
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with the number of events since the last 
execution and the display start address. 
The whole routine can be turned off using 
function key f7 and turned on using f8. 
This disables and enables the event 
generation. 


POSSIBLE USES 

1.) ROMS. Look at locations starting at 
&8000 and type “HELP: by stopping the 
display with Shift+Ctrl you can explore 
any of your active ROMs. With a small 
modification to the program (see below) 


the contents of any sideways ROM or RAM 
can be continuously displayed. 
2.) Entering a line of Basic. Look at 


locations &7ØØ onward (the Basic keyboard 
buffer), enter a line of Basic and see the 
line being  tokenized when you press 
Return. 


3.) Keyboard entry. Still looking at &700 
onward, use the Copy key to enter a few 
characters. Note that the characters 
entering the buffer are the ones you 
copied, and this is still so if Shift or 
Ctrl are pressed with Copy. Now look at 
&3EØ onward (the keyboard buffer). Note 
that when you Copy a character, the code 
entering the buffer is that for the Copy 
key, rather than the character copied, and 
that pressing Shift or Ctrl together with 
Copy causes a different code to enter the 
buffer. Now look at locations &EC and «ED 
(which contain 'current keys pressed' 
information) and see that pressing Copy 
produces yet another code (the 'INKEY' 
code), which is not affected by pressing 
Shift and Ctrl. These observations provide 
some clues as to how the Beeb processes 
keyboard input, and suggest further 
questions. 


PROGRAM MODIFICATIONS 

The program displays both Teletext 
character sets, i.e. ASCII 32-126 and 
160-255, so many displayed characters are 
ambiguous. To display only the normal set 
delete line 670. 


Sideways ROMS/RAM can be selected with 
the following modifications. Change 'lock' 
to 'rom' in lines 390 and 410 and insert 
the following lines: 

150 rom-base*2:key-baset3:lock-base-] 
500 .start LDA rom:STA&FE39 

505 LDA#8:STA&308 

1015 LDA&F4:STA&FE3Ø 
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To inspect your RAM (or ROM), set the 
display to start at &8000 and press Shift 
with the horizontal cursor keys to select 
the required ROM. 


As it stands, the routine monopolizes 
the event vector. The program could be 
modified to save the previous contents of 
the vector and exit via a JMP so that any 


Press f? to turn off, f8 to turn on 


other user routines using this event can SHIFT + vertical cursors = 
taka thet t SHIFT+CTRL+vert. cursors = fast SCROLL 
ake eir turn. SHIFT+horiz.cursors = change sample rate 
Start address &1900 
PROGRAM NOTES Do you want to save the code 


Lines 220-800: checks number of event, 
keys pressed, sets up pointers, text 


window. 

Lines 810-1120: the display routine. 

Lines 1130-1220: sets up soft keys. 340 .scan LDX &EC NCheck whether 
Clears buffer if necessary using 350 BEQ skip Na cursor 
equivalent of ON ERROR to detect full soft 360 PHA:SEC:TXA Nkey has been 
key buffer. Starts routine by invoking f8. 370 SBC 4128:TAX:PLA \pressed, 

380 CPX #25:BNE right Mif so, 
390 DEC lock:JMP start\take 
18 REM PROGRAM MEMWIN 400 .right CPX #121 Nappropriate 
20 REM VERSION BØ.7 410 BNE up:INC lock action. 
30 REM AUTHOR S.LAZARENO 420 JMP start 
40 REM BEEBUG OCT 85 430 .up CPX #57:BNE down 
50 REM PROGRAM SUBJECT TO COPYRIGHT 440 CLC:ADC ad:STA ad 
60 : 450 BCC skip: INC ad+1 
100 *FX13,4 460 .skip JMP start 
118 MODE7 470 .down CPX #41:BNE start 
120 PRINT'"Press f7 to turn off, f8 to 480 EOR #&FF:ADC ad::STA ad 
turn on"'"SHIFT * vertical cursors - SC 490 BCS start:DEC ad+l 
ROLL"'"SHIFT4CTRL-tvert. cursors = fast S 500 .start LDA #Ø:STA &308 
CROLL"'"SHIFT+horiz.cursors = change sam 510 LDA #24:STA &309 \Equivalent 
ple rate" 520 LDA #39:STA &3ØA Nto 
130 ON ERROR GOTO 1600 530 LDA #8:STA &30B ^ NVDU28,0,24,39,8 
140 base-&8A:ad-base:INPUT"Start addre 540 ORA &DØ:STA &DÜ \Text window set 
ss &"S$: !ad=EVAL ("&"+S$) 550 LDA #1:STA line 
158 key=baset2:lock=base+3 560 LDY #0:LDX #Q:STX key\Print addr. 
160 line=base+4:code=88C0: ?key=0: ? lock 570 .loopad:JSR printad \and contents 
=5 580 .loop:LDA (ad) ,Y \of next 8 
176 REM EVENTV points to routine 598 JSR printacc \locations, 
180 ?&220-code MOD &100:?&221-code DIV 600 LDA #32:JSR prinx \first in 
&1 ØØ 61Ø INY:ASL line:BCC loop\hex, 
190 FORI%=ØTO2STEP2 620 ROL line:LDA #131:JSRprinx:INX 
200 P$-code 630 TYA:SEC:SBC #8:TAY 
210 [OPT I$:PHP:PHA:TXA:PHA:TYA:PHA 640 .loop2:LDA (ad),Y Nthen ASCII 
220 LDX key:INX \Increment 650 CMP #32:BCC dot \if possible. 
230 STX key:CPX lock \key, 660 CMP #127:BCC pound 
248 BEQ scrollcheck 670 CMP #160:BCS next \ Remove this 
250 LDX #240:JMP end exit if < lock line to prevent display of chars 160 - 
260 .scrollcheck Nis SHIFT or 255 
270 LDA &25A:TAX NSHIFT LOCK 680 .dot LDA #ASC".":BNE next 
280 AND #8:BNE ctrl pressed? 690 .pound:CMP#96:BNE hash MODE 7 
290 TXA:AND #32 700 LDA#35:BNE next Ndisplay 
3QQ BNE start NIf so, check 718 .hash CMP#35:BNE under \of 
318 .ctrl TXA:AND #84Q0N for CTRL,set 720 LDA#95:BNE next \these 
320 LSR A:BNE scan \acc. to alter 730 .under:CMP495:BNE next Mis 
330 LDA #8 \address pointer 740 LDA #96 \strange 
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750 .next JSR prinx 1220 RTS:] 
760 INY:ASL line \Display 8 1230 NEXT 
778 BCC loop2:ROL line  Nlocations 1240 CALLinvoke:END 
780 CPX #240:BCS end Nper line, 1250 DEF FNonerror:pass-P$ 
790 JMP loopad \6 lines. 1268 FORopt-ÜTO2STEP2: P$-pass 
800 N 1270 [OPT opt 
810 .printhex:AND #&F \Print 1280 LDA&202:STA line 
820 CLC:ADC #&30:CMP #&3A\digit in 1298 LDA&203:STA linet] 
830 BCC prinx:ADC #6 \hex 1300 LDA #(onerr MOD 256):STA &202 
840 .prinx:STA &7CØØ,X  Nincrement 1318 LDA #(onerr DIV 256):STA &203 
850 INX:RTS Nscreen point 1320 BNE setup 
er 1330 .onerr:LDA418:JSR&FFF4 
860 N 1340 .setup:] 
870 .printacc:PHA \Print 1350 NEXT: =1% 
880 ROR A:ROR A \contents of 1360 : 
890 ROR A:ROR A Naccumulator 1370 DEFFNturnoff:str$="K.7*FX13,4 M":= 
900 JSR printhex:PLA Nin hex. FNoscli 
918 JSR printhex:RTS 1380 : 
920 N 1398 DEFFNturnon:str$="K.8M0.7:V.31,Ø,8 
930 .printad:LDA #134:JSR prinx :*FX14,4 M":=FNoscli 
940 TYA:CLC:ADC ad:PHA \Print 1400 : 
950 LDA ad+1:ADC #0 \2 byte 1418 DEFFNbreak:str$="K.1Ø0. M?&22Ø=&"+ 
960 JSR printacc Naddress, STRŠ (code MOD256) *": ?&221=&"+STRS™ (code 
970 PLA:JSR printacc Nincrement DIV256)+" M":=FNoscli 
986 LDA #135:JSR prinx \screen 1420 : 
990 RTS \pointer. 1430 DEFFNoscli 
900 N 1440 pass-P$:FORopt-Ü TO2 STEP2 
1918 .end 1450 P$-pass 
1020 LDA #133:JSR prinx \This routine 1460 [OPT opt 
1030 LDA #base \executed 1478 LDX# (string MOD256) 
040 JSR printacc Nat every 1480 LDYf (string DIV256) 
1050 LDA #135:JSR prinx call: prints 1498 BNEoscli 
1068 LDY $0 \the start 1500 .string 
1070 .loop:LDA base,Y Naddress 1518 ] 
1080 JSR printacc \of the 1520 SPè=str$ 
1090 LDA #32:JSR prinx \display, and 1530 P%=P%+LENSP%+1 
108 INY:CPY #4:BNE loop contents of 1540 [OPT opt 
1118 PLA: TAY: PLA: TAX \lock & key 1550 .oscli JSR&FFF7 
120 PLA:PLP:RTS Nthen exits. 1560 ] 
1130 .invoke 1570 NEXT 
1140 OPT FNonerror 1580 =I% 
150 OPT FNturnoff NSet £7 1590 : 
1160 OPT FNturnon NSet f8 1600 ON ERROR OFF:MODE 7 
1170 OPT FNbreak \Set f1Ø 1618 IF ERR=17 END 
180 LDA line:STA&202 NON ERROR 1620 REPORT:PRINT" at line ";ERL 
1198 LDAlinetl:STA82Q3 NOFF 1630 END 
1200 LDA#138:LDX#0 NInvoke f8 to 
210 LDY4136:JSR&FFF4 Nturn on rout 
ine 


kz 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS. 


MUSIC SYSTEM LINE FEEDS - Allan Woods 

Island Logic's Music System was said in our review (BEEBUG Vol.4 No.1) to produce 
an extra linefeed at each line on printing out music (if the printer was configured in 
the normal way). The 6 key switches off this effect but is not documented. 


280 FILENAMES - Michael Colley 
Filenames starting with character 152 (conceal display in mode 7) operate perfectly 
on the unadorned Beeb. They are not recognised with a Z80 second processor. sss] 
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BOFFIN 


Boffin is an exciting new game 
from Addictive Games. Geoff 
Bains, BEEBUG’s resident ‘boffin’, 
dons his white coat and reports on 
the game and on an exclusive 
BEEBUG competition. 


Boffin is the second release for the 
BBC micro from Addictive Games and seems 
set to follow 'Football Manager" as a 
chart topper. The boffin of the title is a 
cute little mad professor armed only with 
an umbrella and an insatiable desire to 
wipe out horseshoes and collect pieces of 
laboratory apparatus. The horseshoes and 
the bits of glassware are scattered around 
the inevitable caverns. You must guide 
your boffin around the caverns, destroying 
the unlucky horseshoes and picking up 
bonuses in the form of the apparatus. 


The caverns are filled with the usual 
array of platforms, barbed wire, perilous 
drops and trampolines. The latter are 
especially effective, giving a beautiful 
boing noise and actually flexing when 
they're jumped on. The umbrella is not 


To celebrate the launch of Roffin, 
exclusively for BEFBUG members. 


Addictive Games are 
Each month Addictive are giving £50 to the highest 


just carried for show. It will stop the 
professor's fall and can even be used to 
pick up the objects. 


Also in the caverns, however, is a 
superb assortment of suitably evil 
creatures - gigantic spiders, giant 


puffers, manta bats, etc. The movement of 
the spider is excellent, given the size of 
it, and the game is better than most when 
considering playability. The collision 
detection is very good too. You don't die 
when you are still inches away from your 
foe as happens in many other games. This 
is especially important with the spider as 
you have to get pretty close to that, at 
times, to win. 


There is a high score table which 
records the number of the game currently 
being played and the game comes in two 
versions. Boffin I is Beeb only (B and B+) 
and boasts 45 caverns. Boffin II has only 
(only!) 25 caverns but it is compatible 
with both the Beeb and Electron. 


Overall, the graphics are good, fast 
and smooth and the whole theme makes it 
very enjoyable. The mad professor with his 
umbrella is a great idea, and as an 
example of the Manic Miner type of caverns 
game, Boffin shows a wonderful sense of 
humour and is strongly recommended. 


COMPETITION COMPETITION COMPETITION COMPETITION COMPETITIO 


running a competition 


Scorer in Boffin II. To make things even easier for members there is a special price on 
that's £1 


the game as well. For BEEBUG members the excellent Boffin costs only £8.95, 
off the normal price. Send your high scores to Addictive at: 


BEEBUG Competition, 
Addictive Games, 
7a, Richmond Hill, 
Bournemouth, 

BH2 6HE. 


You must quote your BEEBUG membership 
number and include a statement from a 
witness. Should you be the top scorer, you 
will be expected to reproduce a similar 
Score at Addictive's offices. 


Each month, the winner of the Boffin 
High Scores competition will be invited to 
Addictive Games to challenge Paul O'Mally, 


the author of Boffin, at his own game. The first reader skilful enough to beat him will 
win £250 worth of peripherals and add-ons, of his choice, for his computer. The results 
of the competition will be published in future issues of BEEBUG. ==) 
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In the first of 

three articles, 
Stephen Ibbs, 
an enthusiast 


Wordwise 


Plus 
Wordwise Plus, 


introduces the whole idea of 
writing Wordwise Plus programs. 


There are now over 20,000 Wordwise 
Plus ROMS in use. Perhaps the most 
exciting aspect of this ROM is the special 
programming language built into it. This 
enables routines to be written to control 
the word processor. In addition to the 
main text area there are ten 'segment' 
areas each of which can store text, or 
routines which are called by pressing 
Shift and one of the red function keys. 
The excellent reference manual gives a few 
examples but more complex routines can be 
easily written once you have a basic grasp 
of the language. This short series of 
three articles is intended to provide that 
initial understanding. Some useful hints 
will be given, and the text will be 
illustrated with worked examples. 


It is first necessary to understand 
that the commands of the language can 
either be written as a program, in a 
segment, or typed directly from the main 
menu preceded by a colon. Thus if we 
wanted to move the cursor to the bottom of 
the text it could be done by executing the 
following in a segment: 


SELECT TEXT 
CURSOR BOTTOM 


DISPLAY 


or by typing :CURSOR BOTTOM «Return? from 
the menu. Any colon command must end with 
a <Return> but this will not normally be 
Shown in these articles. Similarly you 
will not normally be reminded that a colon 
command must be typed from the menu page. 


The ability to issue commands from the 


menu is very useful when you are writing 
routines. You have absolute control and 
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can check the effect of each command as it 
is issued. 


HINT: Try issuing commands (except REPEAT 
loops etc) one at a time from the menu if 
you are having trouble fault-finding. 


Probably the most often-used command 
is CURSOR, followed by another 
instruction. Place some sample text into 
the main area, go back to the menu and 
type: 


:CURSOR BOTTOM 


:CURSOR UP 2 
:CURSOR LEFT 5 


Go back to the text, and you will see just 
how precisely the cursor position can be 
controlled. When moving it to a particular 
position on a line, the CURSOR AT command 
is used, thus CURSOR AT 10 will place the 
flashing cursor underneath the tenth 
character. The only, but important, 
problem is with CURSOR AT 39. Because of 
the "'wrap-around' effect that stops words 
being split over lines, a blank area may 
be left on the right hand edge of a line 
on the screen. CURSOR AT 39 places the 
cursor under the last actual character 
(which may of course be a space or a 
Return character) and not necessarily on 
the rightmost character position on the 
screen. 


HINT; CURSOR AT 39 places the flashing 
cursor under the last character, whether 
at position 39 or not. 


As a very simple first example, let us 
count how many characters a particular 
line has. To do this we will use the GCTS 
command (Get Character from Text). The 
character 'got' will be the one above the 
cursor, and the cursor will then move one 
position to the right. Never forget that 
final part. This, at different times, can 
be both invaluable and a nuisance. 


Enter segment Ø and type in the 
following lines (ending each with Return): 


SELECT TEXT 
CURSOR AT Ø 
$-0 


REPEAT 


AS=GCTS 
A%=A%+] 
UNTIL AS=CHRS13 
DISPLAY 
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Go back to the main text area and 
clear it. Type in a line of 34 characters 
then press Return and then a few more 
characters. Place the cursor anywhere on 
the upper line, and press Shift-fÜ to run 
the segment program. After a brief pause 
you will see the cursor move to the start 
of the 2nd line. If you now (from the 
menu) type :PRINT A% the answer 35 (the 
count includes the Return at the end of 
the line) will be displayed. 


What has happened? The cursor has 
started from the beginning of the line and 
repeatedly placed a GCT$ character into 
the variable, AS, and increased A$ by 1. 
You can't tell it to stop the loop when it 
finds a Return character, as such, but by 
finding Return's ASCII code of 13. Hence 
the line, UNTIL A$=CHRS13. If you want to 
test this, type :PRINT ASC(AS) from the 
menu and you will see the number 13 
displayed. Similarly fl (green embedded 
start) is CHR$2 and f2 (white embedded 
end) is CHR$7. So if you want to count 
characters until the cursor encounters the 
start of an embedded command, it can be 
easily done by changing the line to: 

UNTIL AS=CHRS2. 


HINT: In situations where you can't use |R 
for the Return try CHR$13. Similarly use 
CHR$2 for fl instead of |G and CHR$7 for 
£2 instead of |W 


When the routine finds the Return 
character it adds one more to A% (giving 
35) then stops. Finally the DISPLAY puts 
us back into edit mode. 


The technique of collecting characters 
using REPEAT-UNTIL loops is relatively 
slow, but is used time and again in 
routines. Try inserting a Z into the upper 
line of text, and altering the appropriate 
line to UNTIL AS="Z" (note firstly the 
quotation marks, and secondly that if you 
use a lower case z it will not work. To 
trap either you would put UNTIL AS="Z" OR 
AS="z") ja 


Whilst the above example worked, it 
would be extremely tedious to have to type 
a Return at the end of every line to be 
counted. Fortunately there is a little 
known memory location that can spring to 
our aid. ?&7E holds the current horizontal 
cursor position. Place the cursor anywhere 
on a text line, then type (from the menu): 
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:CURSOR AT 39 


:PRINT ?&7E 


and the amount returned will be the actual 
final character position, which may not 
necessarily be 39. This memory location is 
extremely useful and is used time and 
again. However, it is worth noting that 
this is not a very 'legal' method. There 
is no guarantee that this location will 
have the same function in future issues of 
Wordwise Plus. 


HINT: Calling ?&7E memory location will 
return a value equivalent to the 
horizontal position of the cursor. 


If you want to see the routine 
running, insert the command DISPLAY after 
the AS=GCTS line. You will see the cursor 
moving along as it goes through the REPEAT 
loop, stopping when it finds the Return. 
To slow it down even more add the line IF 
GET THEN just above the A%=A%+1. This will 
'single-step' the routine. Press the space 
bar each time the screen freezes. 


HINT: when developing routines, the lines 
DISPLAY 

IF GET THEN 

will allow examination of the cursor 
position and the routine's effect so far, 
before continuing. 


The simple routine discussed so far 
could be used to transfer text very slowly 
from the main area to, say, segment 7 by 
adding a couple more lines so that the 
routine looks like this: 


SELECT TEXT 
REPEAT 

AS-GCTS 

SELECT SEGMENT 7 
TYPE AS 


SELECT TEXT 
UNTIL EOT 
CURSOR TOP 
DISPLAY 


Note the EOT command - 'End of Text', 
to end the REPEAT loop - and the CURSOR 
TOP command, which restores you to the top 
of the text in the main area. 


There is, however, another command 


associated with getting characters from 
text, GLTS (Get Line from Text). This will 
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place as many characters as possible into 
a variable up to either the first Return 
encountered, or until the variable has 255 
characters in it. This means that the 
transfer of text mentioned above can be 
achieved in a fraction of the time using 
the following routine: 


SELECT TEXT 
REPEAT 

AS=GLTS 

SELECT SEGMENT 7 
TYPE AS 

SELECT TEXT 
UNTIL EOT 
DISPLAY 

END 


If you run this routine, you will find 
the resulting text in segment 7 is a 
little strange - all the Returns from the 


original are missing from the copy. This 
is because GLT$ stops at a Return (or 
after 255 characters). We can account for 
this by inserting the following after the 


TYPE AS line: 


IF LEN (A$)<255 THEN TYPE " 


If GLTS stops before 255 it is because 
of a Return. A Return is inserted in the 
copy (with the |R) if the length of AS is 
less than 255. The only case where this 
might not be accurate would be the very 
final line of the text. If this was 
important the following could be inserted 
after the UNTIL EOT line: 


SELECT SEGMENT 7 
IF LEN (AS)<255 THEN DELETE LEFT 


SELECT TEXT 


HINT; When using GLT$, remember that it 
does not collect the Return character 
which may need to be inserted separately. 


As it stands, the transfer will 
commence from the current cursor position. 
If you want the entire text copied, insert 
as the 2nd line: 


CURSOR TOP 


so now the routine would look like this: 


SELECT TEXT 
CURSOR TOP 
REPEAT 


AS=GLTS 
SELECT SEGMENT 7 
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TYPE AS 
IF LEN(AS)«255 THEN TYPE "|R" 
SELECT TEXT 

UNTIL EOT 

SELECT SEGMENT 7 

IF LEN (A$)«255 THEN DELETE LEFT 
SELECT TEXT 

CURSOR TOP 

as=" 

DISPLAY 

END 


The 


as="" 
practice - to empty any string variables 
used. This is important, particularly with 
the GLT$ command. There are only just over 


line illustrates good 


600 bytes of memory available for 
variables, and this amount can be very 
quickly filled, in which case the GLTS 
command won't work, and the error message 
NO $ ROOM will appear. If you experience 
this, then you must clear the offending 
variables by typing, say, :DS="" from the 
menu. 


HINT: Always try to clear variables, 
particularly $ variables, after use, to 


keep memory space empty. 


Finally, for this month, let's use the 
?&7E location information to delete a 
complete line, with the following routine: 


SELECT TEXT 
CURSOR AT 39 
DELETE LEFT ?&7E 


DELETE AT 
DISPLAY 


m 


The cursor is placed on the rightmost 
character and ?&7E returns a value of, 
say, 34 so then 34 characters are deleted 
to the left of the cursor. The character 
above the cursor is still there, so this 
is removed with DELETE AT. 


As an exercise for next month, you may 
like to alter this routine a little. How 
could the routine be developed so that, 
after deleting the text, the routine 
checks to ensure that the two lines now 
joined (above and below the line deleted) 
are separated by one space? Without this 
modification you will find that sometimes 
the lines are joined together with either 
no space, or two spaces. Think about that 
one for now. I will give you the answer in 
the next issue. 


te 
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—— HINTS — 
Wordwise 


Plus 


useful hints and tips were 
discovered. We bring some of 
these together here, for expert 
and beginner alike. 

VDU CODES 

Wordwise Plus accepts VDU codes in a 
very similar way to Basic. They may be 
strung together in the normal way and used 
to print out characters on the screen that 
could not otherwise be produced. Try the 
following segment program. 

CLS 

DOTHIS 

VDU 129,157,131,141 

PRINT "Double height in colour." 

TIMES 2 

IF GET THEN END 

This will clear the screen and print a 
double height banner in yellow on a red 
background. 

VDU 31 can be used to very good effect 
in a similar manner to position text on 
the screen. VDU31 is equivalent to the 
Basic TAB(x,y). For example: 

CLS 

X$-1 

REPEAT 

VDU31,X$*3,X$*2,134 

PRINT "hello" 

X$-X$42 

UNTIL X%>1Ø 

IF GET THEN END 

However, be very careful not to 
execute a VDU 22 (select screen mode) 
command from Wordwise Plus. This can cause 
all your text and programs to be lost. 


ea sz course 
of development e 


SOUND 
Sounds can be produced from within 


Wordwise Plus using the  VDU7 (beep) 
command. The pitch and duration of the 
note can be changed using *FX commands, 
213 and 214. For example, to produce a 
one-second high-pitched note use: 
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*FX213,200 

*FX214,20 

VDU7 

To control the pitch or the duration 
with a variable, OSCLI must be used: 

$-0 

REPEAT 

OSCLI"FX213,"+str$ (N$) 

*FX214,2 

VDU7 

N%=N%3+5 

UNTIL N%>25Ø 

The voice and the amplitude/envelope 
of the note can also be changed using 
*FX211 and *FX212, respectively. However, 
note that you cannot alter envelopes from 
within Wordwise Plus so if you select an 
envelope (using *FX212) then the envelope 
must be defined from Basic before entering 
Wordwise Plus. 


EILENAME PRINTING 

To automatically print the 
filename within your text, 
following embedded command: 

«fl» PS FS «f2» 
Where «fl» is the green code produced by 
pressing function key 1. This will print 
the filename when the text is either 
previewed or printed. 


last-used 
use the 


LABEL DUPLICATION 

It is easy to duplicate label or 
procedure names when writing a long 
segment program, with disastrous results. 
To avoid a clash, test a proposed name 
before using as follows: 

Press Escape to leave you in the menu 
of the segment containing your development 
program 

Type :GOTO newname 

If the error message, 'No such label' 
is produced then the name is okay. 
Otherwise it has already been used. 


WORDWISE HELP AND PRIZE COMPETITION 

The Wordwise Plus language is a 
fascinating one to use, and we hope that 
these hints and the series of articles 
that we are currently running tempt you to 
experiment with it. 


To assist you in your explorations we 
have set up a panel of 'experts' who will 
try to answer any problems you have with 
Wordwise Plus. We will feature a selection 
of your questions (with answers!) in 
caming issues, and we are offering a prize 
of £50 for the most novel Wordwise Plus 
program submitted before November 30th. mm] 
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Whether it is on the screen or to a 
printer, the correct formatting of data 
can often seem to be a hit or miss affair. 
The solution would seem to be the use of 
the special variable @% but a first 
reading of the User Guide about this can 
be most off-putting. However, the use of 


@ has much to offer when properly 
understood. 
The explanation of format control 


using @% on pages 78 and 325 of The User 
Guide gives a good introduction to the 
facilities available, but it is 
incomplete. You will be surprised by some 
of the unexpected, and usually 
undesirable, formats which crop up. In 
addition determining the 8$ value to give 
a particular format can be very difficult. 


USING Q$ 

The format control variable 0$ is a 
special variable that controls the 
printing (or display) of numbers. @% is a 


four byte integer similar to the 'resi- 
dent" integers A% to Zò. Its value remains 
unchanged by running a program or editing, 
but it is reset to a default value of &90A 
when Break is pressed. (In Basic I this 
default value of 8$ is &AÜA. However, this 
acts the same as  80$-890A, the first A 
being interpreted as 9 because it is not 
in the permitted range of 1 to 9). 


Byte 3 (B3) Byte 2 (B2) 


Byte 4 (B4) Byte 1 (B1) 
STRS Type Digits 


Field width 


00 Default 00 General 01-09 Digits 
01 Exponential | 01-09 Decimals +1 


02 Fixed 00-09 Decimals 


00-FF Width 


01 e. 


Correctly formatting 


numbers and text on 
the screen often causes 


to programming. In the the 
first of two articles on 
this subject, J. Pike 
looks at the help 
provided by BBC Basic. 


Each of the four bytes 
that make up @% controls a 
particular function of 
print formatting. These are 
shown in the table and will 
be considered individually. 


problems for newcomers pyr 1 


The Bl byte determines 
field width for 
printing a number. The 


print line is divided into 
fields Bl characters wide 
into which successive num 


bers are printed. Numbers 
and strings have different 
rules governing where they 
are printed. 


Numbers are printed 
right justified in the next 
unused field, whereas 

strings ignore the fields and are printed 
consecutively. For example, with a field 


width of 5 (@%=&5): 
PRINT 12 3 
PRINT "| " "2 " w " 
ME EE 
1 2 3 
123 
(| denotes the (invisible) field 


boundaries). 


Numbers can be made to print like 
strings by using a semi-colon as a 
separator. However, the first number is 
still printed to be right justified in the 
first field. A semi-colon has no effect on 
the strings. 

PRINT 1;2;3 
PRINT "1 LL ge 


123 
123 

Similarly, strings can be forced into 
the next free field with a comma as a 
separator, though they are still left 


justified. This has 
numbers. 
PRINT 1,2,3 


PRINT "1 Jt "2 qu "3n 


MEME 


1 2 3 


no effect on the 


All the numbers can be made to print 
as do strings by preceding the whole line 
with a semi-colon. Any other separator 
following (like a comma) will cancel this 
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effect. Again, the semi-colon has no 
effect on the strings but the comma forces 
the last string into the next field. 

PRINT $1 2 3,4 

PRINT Pal " "9" wna" 

123 | | 

123 4 


A comma preceding all the items to be 
printed is ignored by both numbers and 
strings. 

PRINT yl 2 3 
PRINT ru " "2n now 


oom 
2-3 
123 


Problems arise when a number uses more 
characters in its representation than 
there are in the field width. Then the 
field is completely filled and the extra 
characters overflow into the next field. 
Thus even one too many characters causes 
all the subsequent printing to be one 
field further right. This can cause havoc 
when setting out numbers in tables. 


One way of preventing this is to use 
the TAB command. TAB(X) positions the 
cursor X characters along the current line 
and accounts for the Return when the line 
exceeds the screen width. Numbers 
following TAB(X) are printed starting at 
position X but can be made to print in the 
next field by following TAB(X) with a 
comma. Problems can arise with TAB(X) when 
X<POS. It is better then to use TAB(X,Y) 
which moves directly to position X,Y. It 
then  re-allocates the print fields 
starting at the current position and, 
unlike TAB(X), prints the next number 
right justified in the first field. 


BYTE 4 

The B4 byte is of no interest unless 
the STRS function is to be used. STRS 
converts a number into an equivalent 
string of characters. If the B4 byte of @% 
is set (B4=1), then the string created 
will follow the format currently defined 
by the other bytes of Gè. If B4 is zero 
then the string created will follow the 
default format regardless of the current 
value of the other 0$ bytes. 


BYTE 3 

B3 controls the format in which a 
number is printed. A General, Exponential 
or Fixed format is used depending on 
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whether B3 is Ø, 1 or 2. Values of 
B3 greater than 2 give a general | + 


format. E 
GENERAL E.g.: 10. course 
The general format aims to give a 


reasonable representation of any number. 
This is the default format. Numbers below 
0.1 are printed in exponential form. 


EXPONENTIAL E.g.: lEl. 

The number is expressed as a multiple 
of a power of ten. The first number (the 
'mantissa') is the multiple. The number 
following the E (the 'exponent') is the 
power of ten. 2.3E-1 is therefore 
equivalent to 0.23. 


FIXED E.g.: 10.00. 

The number is printed with a specified 
number of decimal places and with the 
decimal point in a fixed position. 


BYTE 2 

The B2 byte controls the accuracy to 
which the number is printed. In General 
and Exponential formats, this byte 
controls the maximum number of significant 
figures to which a number is printed. In 
General format the number of significant 
figures is the same as the total number of 
digits in the number. In  Exponential 
format B2 is similarly equal to the number 
of digits in the mantissa. In General or 
Exponential format values outside the 
range 1 to 9 default to 9. 


Although B2 influences the length of 
the number, it is with the accuracy that 
this byte is primarily concerned. When B2 
is larger than the number of digits needed 
to represent the number then less digits 
are printed. For example, for all values 
of B2 greater than 2, the number 12.6 is 
printed as 12.6 in General format and 
1.26El in Exponential format. When B2 is 
less than the number of significant 
figures the number is truncated. If B2=2, 
then 12.6 is printed as 13 or 1.3E1, with 
the least significant figure being rounded 
as appropriate. If B2=1 then it is not 
possible to represent 12.6 in General 
format, and it is then printed as lEl in 
General format and 1.El in Exponential 
format. 


For numbers that are either very large 
or very small, the General format reverts 
to Exponential. This can cause the number 
of characters used to represent the number 
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to be larger than anticipated. For zeros are not suppressed in Fixed format. 

= example, with the default format With B2=2 the number 1 is printed as 1.00. 
| (@3=&90A), we might expect a If the number requires more than 9 decimal 
s | maximum of 11 characters for any places the number of decimal places 
Course ) number (9 digits plus the decimal reduces until there are 9 digits, and the 
point and negative sign). However, a very number prints in the default format. As 
small negative number will revert to for the General format, very large numbers 
Exponential format and be printed with revert to Exponential format, using a 
many more (9 significant figures, a maximum of 14 characters. The range of B2 
negative sign, the 'E', the exponent and in Fixed format is Ø to 9. 382-0 causes 


the sign of the exponent!). It can easily numbers to be followed by a decimal point h 
take up 15 characters. but no decimal digits! 

This can have serious implications The correct use of @% will enable you 
when controlling the positioning of to deal with just about any situation y 


numbers using the Bl field width byte in, requiring the tidy presentation of 
Say, a table. Numbers can easily overflow numbers. However, there is a need for a 
their fields. printing format which is more flexible, 
easier to specify, and which cannot 

To cause, say, 0.01 to be printed as overflow its allotted space. In part 2, we 
0.01 and not as 1E-2 we use the Fixed shall look at a format with these and 
format. In Fixed format, B2 controls the other useful properties, similar to the 
number of decimal places. Unlike General PRINT USING command to be found in other 
and Exponential formats, however, trailing versions of Basic. mj 


POINTS ARISING POINTS ARISING POINTS ARISING POINTS 


VIEW PRINTER DRIVER GENERATOR (BEEBUG Vol. 4 No.3) 

As a result of renumbering, the line numbers of the '£' patch printed in the 
magazine are out by 10 and should be numbered from 1202 to 1208 and not as printed. The 
coding itself is quite correct. 


PRETTY LIST (BEEBUG Vol.3 No.9) 

Mr.N.Smith of Stoke-on-Trent has found that when this utility is used with assembler 
programs containing comments following a "/", the text drifts to the right of the page 
or screen. This apparently results when the utility finds a character which corresponds 
to a Basic token. Mr.Smith offers the following to prevent this: 

205 IF C$-&5C THEN PROCbslash 


1670 DEF PROCbslash 

1680 REPEAT:C$-?I$ 

1698 IF C$-&5C AND ?(I$-4)45&D PRINT'SPC5;:FOR J$-1 TO S%:PRINT SPCl;:NEXT J% 
1700 IF C$«&80 PRINT CHRS(C%); ELSE A$-C$:CALL token 

1710 I$-I$41:UNTIL C%=&D 

1720 ENDPROC 


ASSEMBLER ARITHMETIC (BEEBUG Vol.3 No.8) 


John Bank of Ang's Hotel, Brunei (yes, BEEBUG goes everywhere) has discovered that 
this program does not correctly handle a zero result if the destination variable is 
real, nor does it detect division by zero. The problems occur in the two sign routines 
Sigl and sig2, which do not recognise the special format of a floating point zero (five 
zero bytes). It can be corrected with the following changes: 

2080 «Sigl :LDX#4:LDA#@: .detzero:ORAfacl ,X: DEX: BPLdetzero:TAX:BEQzero 

2085 LDA#8Q:EORfacl—-2:AND#688Q:EORfacl+1:STAfacl+]l:.zero: RTS 

2090 .sig2:LDX#4:LDA#Q:.detz2:0RA fac2,X:DEX:BPLdetz2: TAX: BEQzero 

2095 LDAH&8Ø:EORfac2-2:ANDH&8Ø: EORfac2+1:STAfac2+1 :RTS 


tel 
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m anan 
Programmer 
Project 


(Part 2) 


Alan Webster and Geoff Bains 
continue our project on 
constructing an EPROM 
programmer by describing the 
essential software to program 
your own EPROMS. 


when you have finished building the 
EPROM programmer hardware (described in 
the previous issue of BEEBUG) you will 
need the following program to use it to 
program your own EPROMs. If you have any 
sideways software (that you have been 
using in sideways RAM, for example) then 
you can 'blow' an EPROM with this straight 
away. Otherwise you can use the programmer 
to copy or study existing ROMs. However, 
note that all commercial ROMs are 
copyright and should not be copied. We 
will be looking at writing your own 
sideways software in the next issue. 


As the program is fairly lengthy and 
it requires 16k of memory space to store 
an EPROM in RAM, disc users will need to 
set PAGE to &1200 for this program. Type 
PAGE-&1200 before you CHAIN the program. 


The program is extremely user 
friendly. However, make sure that the 
programmer is plugged in correctly before 
you start. Accompanying the main menu, 
there will be a 'test state' printed. The 
'test state' will inform you of an EPROM's 
presence in the programmer, if it is blank 


or not, and the size and name of any 
non-blank EPROM present. This test state 
is continuously updated as long as the 


menu is displayed. 


The main menu provides six options: 

1. Move the present EPROM contents into 
memory and save it to cassette or disc 
under the specified filename. 

2. Load the specified file into memory 
and blow it into EPROM. This takes a 
little over 7 minutes for an 8k and 
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14.5 minutes for a l6k EPROM. 

3. Display the EPROM in a 'dump' 
Press the 
displaying the EPROM's contents. To 
exit: press Escape. 


format. 
Shift Key to continue 


4. Verify the present EPROM against a 
file on cassette or disc. This is most 
useful to check a programmed EPROM or 
a saved EPROM file. 

5. Leave the EPROM programmer software. 

* 


. Execute a command 


command) . 


line (any * 


To copy an existing ROM or EPROM, 
then, all you have to do is to insert the 
ROM to be copied, select option ] to save 
the contents to a cassette or disc file, 
insert a blank EPROM of the correct size, 
and select option 2, entering the filename 
used, when prompted. You may like to 
verify the resulting EPROM against the 
file saved. Use option 4 for this, 
entering the filename when asked. 


To inspect a ROM or EPROM, insert it 
carefully in the programmer, select option 
3 and study the dump on the screen at 
leisure. Shift displays the next screenful 
of the ROM and Escape will return you to 
the main menu. 


That completes the facilities to 
produce your own EPROMs and to study 
others. In the next issue of BEEBUG we 
will look at how to write the sideways ROM 
programs to fill them with. 


PROGRAM NOTES 


Lines 140 to 160 form the main program 
loop. The main procedures are described 
below in order of appearance. 

PROCinit Set up variables and 
define break key to de- 
select 21 volts. 


PROCmenu De-select 21 volts, print 
menu and wait for input. 

PROCtest Test size and state of 
EPROM. Ø=not present, 
l=blank and 2=not blank. 

PROCstar Issue * command. 

PROCquit Select mode 7 and end. 

PROCassemble Set up the machine code 
(see later for a full 
description). 

PROCsave Save EPROM to file. 

PROCersize No EPROM to save. 


PROCdispsave(x) If x-Ü then move EPROM 
into memory and execute 
PROCsave. If x=] then 
display EPROM contents. 
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1790-1820 Read bytes 0-3 and 
&2000-82003. Store in 'bytes' 
and 'bytes2'. 

bytes-Ü EPROM not present. 
bytes-&FFFFFFFF EPROM blank 
bytes-bytes2 8k EPROM. 
bytes<>bytes2 16k EPROM. 

1830-2090 Display/Move EPROM to memory. 
?&76=1 EPROM is read and displayed. 
?&76-0 EPROM is read and moved down 
into memory. ' 

2250-2430 Program EPROM from the data | 
in memory. 

2440-2450 Wait routine. Provides a delay 
of 58ms to program EPROM. 


1Ø REM PROGRAM EPROM PROGRAMMER 
20 REM VERSION Bl.7 


PROCprogram Program EPROM from file 30 REM AUTHOR Alan Webster 
(see later for full 40 REM BEEBUG OCTOBER 1985 
explanation). 50 REM PROGRAM SUBJECT TO COPYRIGHT 

PROCverify Verify EPROM against file. 60 : 

PROCromt Display title of EPROM. 100 MODE7 

110 PROCassemble 

ASSEMBLER NOTES 120 PROCinit 

PROCassemble sets up the following 130 ON ERROR GOTO 1410 
variables: 140 REPEAT 

DDRA/DDRB Data Direction Registers at 150 PROCmenu 

&FE63 / &FE62. 160 UNTIL 0 
PCR Peripheral Control Register 170 END 

at sFE6C. 180 : 
IORA/IORB Input / Output Registers at 1000 DEFPROCinit 

&FE61 and &FE60. 1910 OSCOM-&7B00:V$-0 
bytes/bytes2 Test State of EPROM buffer. 1020 *K.1Ø O. |M?&FE61 --1 |M 

LO8/HI6 14 bit address stores. 1030 ENDPROC 

1040 : 


The Input / Output Registers are the 1050 DEFPROCmenu:VDU23,1,0;0;0;0;26 

two locations (for ports A and B of the 1060 ?&FE61=255:H%=21:*FX21 

User VIA) through which data is passed as 1078 PROCtitle:PROCtest: PRINT ': *FX200 

input or output, from or to; the 1880 PRINTCHRS131"] - Save Eprom To Fil 

programmer. The Data Direction Registers e"'CHR$131"2 - Program Eprom From File"' 

control which direction this data is to CHR$131"3 - Display Eprom" 

go. The Peripheral Control Register is a 1890 PRINTCHRS131"4 - Verify Eprom Agai 

general register which has just four nst File"'CHR$131"5 - Quit" 

states which concern us here, as follows: 1190 PRINT'CHR$134"* - O.S Command""' 
1118 PRINTCHR$133"Please Enter Your Cho 


CA2 hi,CB2 lo 1X8 08011 TESE acess 1 
CA2 hi,CB2 hi 1118111424 = «EE 1128 GS-INKEYS (5) :H3=H3+1 

CAA lo,CB2 hi 11181188 = sC 1138 IF G$="" PROCtest:GOTO1129 

CA2 lo,CB2 lo 1188112090 = &cc 1140 G-ASC (GS)-48:IFG=-6 G=6 


1158 IF G<10RG>6 PROCtest:GOTO! 120 
CA2 is connected to the EPROM's NOT 1160 VDU31,26,16:PRINTGS' 
program line and CB2 to the latch of the 1178 ON G GOTO 1180,1190,1200,1210,1220 
latch chip (see Aug/Seot BEEBUG for more ,1230 
information on these two lines). 1180 PROCdispsave (Ø) : ENDPROC 
1198 PROCprogram: ENDPROC 
The assembler code can be broken down 1200 PROCdispsave (1) : ENDPROC 


into the following subroutines: 1218 PROCverify:ENDPROC 

1650-1730 Read one byte of data. 1220 PROCquit:ENDPROC 

1740-1780 Read title of EPROM. 1230 PROCstar:ENDPROC 
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RENNES 


1240 : 

258 DEFPROCtest 

260 CALL mctest:IF !bytes--l test=1 EL 
SE IF !bytes-Ü test-Ü ELSE test-2 

1270 size-0:IF !bytes--l OR !bytes=Ø TH 
EN 1290 

280 IF !bytes2-!bytes size-&20 ELSE si 
ze-&40 

1298 PRINTTAB (3,2) CHR$134"Eprom Size-"; 
size/4; "K. "'TAB(3,3)CHR$134"Eprom "; 
300 IF test=Ø PRINT"Not Present";ELSE 
IF test-l PRINT"Blank";ELSE IF test-2 PR 
INT"Not Blank"; 

1310 PRINTSPC(10);:IF H3>2Ø H$-0:PROCro 


mt 
320 ENDPROC 
330 : 
340 DEFPROCstar 

350 VDU42:INPUTLINE""$OSCOM:X$-0SCOM M 


360 Y$-OSCOM DIV 256:CALL &FFF7 
1370 PROCkey:*FX200 1 

380 IFHY-ASC("*") PRINT:GOTO!350 
390 ENDPROC 


1418 ON ERROR OFF 

1420 CLOSE#Q:IF ERR=17 THEN 120 
430 MODE7:*FX200 

1440 REPORT:PRINT" at line ";ERL 
450 END 


470 DEFPROCtitle:CLS 

480 FORF$-1TO2: PRINTTAB (Ø , F2) CHRS$129CH 
R$157CHR$141CHRS131 "BEEBUG Eprom Program 
mer Software "CHR$156:NEXT: PRINTTAB (8, 
)CHR$147; STRINGS (38 ,CHRS172) 

490 PRINTTAB(3)CHRS133"By Alan Webste 
r and Geoff Bains" 

500 VDU28,0,24,39,6 

510 ENDPROC 

520 : 

1530 DEFPROCquit 

1540 VDU22,7:END 

550 : 

1560 DEFPROCassemble 

1570 DDRA-&FE63:DDRB-&FE62 

1580 PCR-&FE6C:bytes-880:bytes2-&84 
1590 IORB-&FE60:IORA-&FE61 

1600 LO8=&7Ø:HI6=&7| 

610 TEMP-&73 

1620 DISPWIDTH=32:Esize=&88 

630 FOR PASS=Ø TO 2 STEP2 

640 P%=&7100: [OPT PASS 

1650 .read:LDA #&FF 

660 STA DDRA:LDA #&CE 

670 STA PCR:LDA4255:STA DDRB 

1680 LDA#192:STA IORA:LDA LO8:STA IORB 
690 LDA #&EE:STA PCR 

1700 LDA HI6:AND f&3F:ORA #&40 

1718 STA IORA:LDA #Q:STA DDRB 
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Ww 


By Alan Webster and Geoff Bains 


Eprom Size=16K. 
Eprom Not Blank 


Alan's silly ROM 


- Save Eprom To File 
- Program Eprom From File 
- Display Eprom 


- Verify Eprom Against File 
uit 


- O.S Command 


Please Enter Your Choice 


1720 LDA IORB:STA TEMP 
1730 RTS 
1740 .title:LDA#Q:STA HI6:LDA#9:STA LO8 
750 LDY#38:LDA#32: . y1p: JSR&FFEE: DEY:CP 
Y#Q:BNE ylp 
1760 LDA#31:JSRSFFEE:LDA#1 : JSR&FFEE: LDA 
5: JSR&FFEE 
1770 LDY#Q:.rdlp3:JSR read:BEQ endt:JSR 
&FFEE: INC LO8: INY:CPY#38:BNE rdlp3 

1780 .endt:RTS 
790 .mctest:LDA#Q:STA LO8:STA HI6 
1800 LDY#Q:.rdlp:JSR read:STA bytes,Y:I 
NC LO8 

1810 INY:CPY#4:BNE rdlp:LDA#Q:STA LO8:L 
DA#&28:STA HI6 

1820 LDY#Q:.rdlp2:JSR read:STA bytes2,Y 
:INC LO8:INY:CPY#4:BNE rdlp2:RTS 
830 .getdata:LDA #0 
1840 STA &8C:STA &8D:LDA#DISPWIDTH:STA& 
8B 
1850 LDA &76:BEQ getlp 
1860 LDA#12 
1870 JSR &FFEE:LDA#14:JSR &FFEE 
1880 .getlp:CLC:LDA Esize:CMP &8D:BEQ r 
eadend 
890 LDA &76:BEQ over 
1900 LDA&8B:CMP#DISPWIDTH:BEQ num 
1918 .bck:JSR decit 

920 .over 
930 LDA &8C:STA LO8 

940 LDA &8D:STA HI6 

950 JSR read 
1960 LDA &76:BNE dsp 
1970 LDY $0:CLC:LDA &8D:ADC #&30:STA &7 


Gk 


980 LDA &8C:STA &77:LDA TEMP:STA (&77) 


990 JMP ok2 

2000 .dsp:LDA TEMP 

2010 CMP #127:BCS dot 
2020 CMP #32:BCS ok 

2030 .dot:LDA #46 

2040 .ok:JSR &FFEE:.ok2 
2050 BIT&FF:BMI escp:CLC 
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2060 LDA &8C:ADC #1:STA &8C 

2070 LDA &8D:ADC #Q:STA &8D 

2080 CLC:CMP $840:BNE getlp 

2090 .readend:LDA#15:JSR&FFEE:RTS 

2100 .num:JSR&FFE7:LDA 4130:JSR&FFEE 
2110 LDA 438:JSR &FFEE 

2120 LDA &8D:JSR shift 

2130 LDA &8D:AND#&F:JSR disp 

2140 LDA &8C:JSR shift 

2150 LDA &8C:ANDH&F:JSR disp 

2160 LDA #134:JSR &FFEE:JMP bck 

2170 .shift:ANDH&FØ:LSRA:LSRA 

2180 LSRA:LSRA 

2190 .disp:CLC:CMP#1Q:BCC nmb 

2200 CLC:ADC#7:.nmb:ADC#48 

2210 JSR &FFEE:.escp:RTS 

2220 .decit:SEC:LDA&8B: SBC#I :STA&8B 
2230 CMP#Q:BNE ret: LDA#DISPWIDTH:STA&8B 
2240 .ret:RTS 

2250 .program:LDA #Q:STA &8C:STA &8D 
2260 LDA #255:STA DDRA:STA DDRB 

2270 LDA #128:STA IORA:LDA#5@:STA&74:ST 
A&75:JSR wait 

2280 .prglp:LDA #8CE:STA PCR:LDA#134:JS 
R&FFEE 

2290 LDA #38:JSR &FFEE:LDA &8D:JSR shif 
t:LDA &8D:AND#&F:JSR disp:LDA &8C:JSR sh 
ift:LDA &8C:AND#&F:JSR disp:LDA43:JSR&F 
FEE 

2300 LDA &8C:STA IORB 

2310 LDA #&EE:STA PCR 

2320 LDA &8D:AND #&3F:ORA #&80 

2330 STA IORA:CLC 

2340 LDA &8D:ADC #&3Ø 

2350 STA &78:LDA &8C:STA &77 

2360 LDA #Q:STA &74:LDA #49:STA &75 
2370 LDY #Q:LDA (&77),Y:STA IORB 

2380 LDA #SEC:STA PCR:JSR wait 

2390 LDA #&EE:STA PCR:CLC 

2400 LDA &8C:ADC #1:STA &8C 

2410 LDA &8D:ADC #Ø:STA &8D 

2420 CMP Esize:BNE prglp 

2430 RTS 

2440 .wait:DEC &74:BNE wait 

2450 DEC &75:BNE wait:RTS 

2460 ]:NEXT:ENDPROC 

2470 : 

2480 DEFPROCsave:IF size-Ü PROCersize:E 


2490 INPUT'"Filename: "F$ 

2500 AS="save "+FS+" 3009 +" 

2510 G=&100*size:AS=AS+STRS G 

2520 SOSCOM=AS:X%=OSCOM MOD 256 

2530 Y%=OSCOM DIV 256:CALL &FFF7 

2540 ENDPROC 

2550 : 

2560 DEFPROCersize 

2570 PRINT"?? No Eprom To Save ??":VDU7 
:PROCkey 
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2590 : 

2600 DEFPROCdispsave (Lè) 

2610 ?&76=L% 

2620 ?Esize=size:CALL getdata 

2630 IF L$-0 AND V$-1 ENDPROC 

2640 IF L$-0 PROCsave:ENDPROC 

2650 PROCkey 

2660 ENDPROC 

2670 : 

2680 DEFPROCprogram 

2690 CALL mctest:IF !bytes<>-1 VDU7:END 
PROC 

2700 VDU12: PRINT 'CHR$131"Filename :";:I 
NPUT""FS:PRINT'':*FX200 1 

2710 A$-5:X$-0:Y$-873 

2720 FS=&7200: SF3=FS 

2730 1&7300-F$:CALL &FFDD 

2740 lngth-!&730A AND &FFFF 

2750 IF lngth>84ØØØ PRINT"File too long 
"7 : PROCkey : ENDPROC 

2760 IF lngth>&2ØØØ size-840 ELSE size= 
&20 

2776 IF lngth=Ø PRINT"File Empty"; :PROC 
key: ENDPROC 

2780 DS="LOAD "+FS+" 3000" 

2790 SOSCOM=D$:X%=0:Y%=OSCOM DIV 256 
2800 CALL &FFF7:?Esize-size 

2810 PRINTCHRS130"Ready To Go (Y/N):"' 
2820 REPEAT:S- (GET AND 223) 

2830 UNTILS-89 OR S-78 

2840 IF S-78 ENDPROC 

2850 CALL program 

2860 ENDPROC 

2870 : 

2880 DEFPROCkey 

2890 PRINT''CHRS$13l"Press Any Key To Re 
turn To Menu";:HY-GET 

2900 ENDPROC 

2910 3 

2920 DEFPROCverify 

2930 V%=1:CLS:PROCdispsave (0) 

2940 PRINT 'CHRS$130"Filename:"; :INPUT""F 
$ 

2950 BS=OPENIN (FS) : E$-0 

2960 FORS$-1TO (size*&l09):PRINTCHRS13; 
Wg ther (S$-1 ); 

2970 IF BGETHBS<> S$?&2FFF ES=E3+1:PRIN 
TCHR$133'"Verify Error at &";^ (S2-1) 

2980 NEXT:CLOSE#0:V%=0 

2999 IF E%=Ø PRINT''CHR$134"No Errors." 
ELSE PRINT''CHR$129;E$;" Error(s)." 
3000 PROCkey 

3010 ENDPROC 

3020 : 

3030 DEFPROCromt 

3040 IF test<>2 PRINTTAB (1,5) STRINGS (38 
,CHR$32) ; : ENDPROC 

3050 VDU31,1,5 

3060 CALL title 


2580 ENDPROC 3070 ENDPROC sz] 
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Oan 


repayments 


Most of us have to borrow money 


from time to time. In the short 

program listed here, Sheridan 

Williams offers a flexible and 

easy alternative to the usually 
tortuous calculations. 


Many of us, from time to time, find 
the need to apply for a loan of some kind. 
In many cases we may not be sure how much 
to borrow, or what the repayments will be, 
or indeed over what period of time the 
loan should be repaid. This program takes 
all the hard work out of the calculations 


involved yet provides great flexibility. 


When you run the program, answer the 
questions with the figures you have in 
mind, or if you're not sure just press 
Return. The program will calculate the 
missing information, and also display a 


table of repayments if requested. 


Two types of loan can be considered: 
'variable' where the interest is based on 
the amount still outstanding, and 'fixed' 
where the interest is based on the initial 
sum borrowed, as with many personal loans. 
In both cases, the program will answer all 
questions, and very 
quickly too. However, the figures are only 
intended for guidance, though they are 


those 'what if..." 


reasonably accurate in most instances. 


1Ø REM Program REPAY 

20 REM Version 1.ØB 

30 REM Author Sheridan Williams 

40 REM BEEBUG October 1985 

58 REM Program subject to copyright 

60 : 

100 MODE 7:8$-8&2020A:VDUl4 

119 FOR I=1T02:PRINTTAB (6,1) CHR$131;CH 
R$141 "Interest repayments":NEXT 

128 VDU28,0,24,39,4,12 

130 A=FNinput ("Amount borrowed" ,TRUE,T 
RUE) 

140 R=FNinput ("Repayments" ,A, TRUE) 
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150 IF A=Ø AND R=Ø THEN 140 
160 REPEAT 
178 I-FNinput("Annual interest rate ($ 
)", FALSE, FALSE) 
180 UNTIL I»-0 
198 y=FNinput ("Number of years loan to 
run", NOT (A=Ø OR R=Ø) ,FALSE) 
200 IF (A=Ø OR R=Ø) AND y=Ø THEN 190 
210 REPEAT 
220 n-FNinput("Number of repayments pe 
r year",FALSE,FALSE) 
230 UNTIL n>Ø 
240 PRINT"Variable or Fixed: "; 
250 REPEAT: types=GET: UNTIL INSTR ("VvFf 
",CHRS (type$) ) 
260 PRINT CHRS (type$AND223) : fi x%= ( (typ 
e$AND16) =Ø) 
270 nrzy*n:i-I/(100*n) :il=i+1 
280 IF i=Ø i2-y*n ELSE i2-(il^nr-1)/(i 
*il^nr) 
290 IF fix$ i2=nr/(1+1*y/1ØØ) 
300 PRINT'' 
319 IF A=Ø A-FNamount:PRINT"Amount bor 
rowed = £ "jA 
320 IF R=Ø R=FNrepayment:PRINT"Repayme 
nt = £ ";R'"Total repaid = £ ";nr*R 
330 IF y=Ø y=FNnumberofyears:nr=y*n: PR 
INT"Number of years - ";y 
340 PRINT'"Table of repayments (Y or N 
)? ";:table- (GET AND 223)-89 
350 IF NOT table THEN 120 
360 VDU12,26:PRINTTAB (4,24) CHRS13Q"Pre 
ss Shift to continue"; :VDU28,0,22,39,4 
370 PRINT"Amount borrowed ";A:IF fix$ 
A-nr*R 
380 PRINT SPC4"Payment"SPC2"To pay"SPC 
4"Repayment" 
390 FOR x=1 TO nr 
400 IF fix$ N-A-R ELSE N-A*il-R 
410 PRINT x,N,A-N 
420 IF x MOD n=Ø PRINT" End of 
year ";x DIV n;" ki 
430 A=N:NEXT x:PRINT':REPEAT UNTIL INK 
EY (-1) :GOTO! 20 
449 END 
1000 DEF FNamount-R*i2 
1018 DEF FNrepayment-A/i2 
1920 DEF FNnumberofyears 
1030 IF R-A*i<Ø THEN PRINT"NEVER REPAID 
":-10000 
1842 IF fix% THEN -A/(R-i*A)/n 
1858 -LOG (R/(R-A*i))/ (n*LOG (il)) 
1960 DEF FNinput (text$,flag,£3) 
19070 PRINT text$;:IF flag PRINT" (or Re 
turn)"; 
1080 IF £% PRINT" £"; ELSE PRINT" :"; 
1699 INPUT " " reply 
1190 =reply 
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Double 
Density 


Disc Filing Systems Compared 


Much has changed since we first 
looked at double density disc 
filing systems back in January 
1984 (BEEBUG Vol. 2 No. 8). We 
asked David Janda to take a 
fresh look at the whole issue. 


Readers who use the standard Acorn DFS 
(or one of its single density rivals) will 
be well aware of the limitations that 
these DFSs have. There are limited file 
numbers, limited total storage capacity 
and a lack of speed. A DDFS can, to an 
extent, overcome most of these problems. 


The most annoying problem of the 
existing Acorn DFS is its limit of only 31 
files on one side of a disc. DDFSS can 
overcame this problem by providing same 
form of extended catalogue, offering 62 
files, or more. 40 track drives have a 
storage capacity of only 1ØØK per disc 


surface, and 80 track only 2ØØK. This can 
also be limiting, especially when data 
files are used regularly. A DDFS can 


provide 60$ to 80$ more storage per side, 
but 'double' density is a bit misleading! 


The speed improvement offered by DDFSs 
is due to the data being packed more 
densely on each track. Whereas an ordinary 
DFS stores data at 10 sectors per track, a 
DDFS uses 16 or 18 sectors per track. As 
it is not possible to control the speed at 
which the drive spins, it is necessary to 
read/write information that much quicker. 


However, readers looking only for a 
speed improvement need not buy a DDFS. The 
new Acorn DNFS 1.28 provides a dramatic 
speed improvement over its predecessor, 
Similarly Watford's 62-file catalogue may 
be adequate for your needs. 
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The level of difficulty of 
installation of a DDFS depends on what 
issue board your Beeb has. The DDFS kits 
all comprise a disc controller board 
(DCB), an EPROM containing the DDFS 
itself, and various other TTL chips and 
header plugs. Fitting a DDFS is similar to 
fitting a standard DFS. If you own an 
issue three, or earlier, Beeb it may be 
necessary to do some soldering. 


For the purpose of the review each 
DDFS was tested on a BBC model B (issue 
four) with OS 1.2, Basic fi, ‘and a 
sideways ROM board. A 20K Ram card was 
also fitted to see if there were any 
problems as far as space is involved. 


WATFORD DDFS 1.53 

Existing Watford DFS users will have 
no trouble adapting to Watford's DDFS, as 
the two products are almost identical in 
operation. The lack of any new commands 
for the double density version does not 
degrade the DDFS in any way - it's still 
an excellent product. 


The disc controller used is the 1770 
(as in the B*) which is mounted on the 
disc controller board (DCB) with three 
other chips and a few discrete components. 
Also supplied in the kit are four other 
chips and a 16K EPROM containing the DDFS. 


Documentation supplied with the kit 
included a 112 page spiral bound DFS/DDFS 
manual, four page addendum sheet and an A4 
sheet of fitting instructions. The 
DFS/DDFS manual is written for users of 
Watford's DFS and DDFS, and clearly points 
out any differences where applicable. 


Installing the kit is easy enough if 
you know what you're doing. The fitting 
instructions lack detail, and there is no 
advice on what to do if things go wrong. 
That said, the DCB is very well made. The 
extended 40 pins which insert into socket 
78 are rigidly supported, and a 40 pin 
sacrificial socket at the end prevents 
damage to the socket. 


The DDFS provides 80$ more storage 
capacity when used in double density mode. 
Depending on the number of files selected 
(31 or 62), 0.5 or 1K will be used up by 
the directory. The extended file option as 
well as the density are prompted for when 
formatting a disc. 
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As well as offering the standard set 
of DFS commands, the Watford DDFS provides 
a number of enhancements and additional 
commands. Wildcards can be used in *LOAD 
and *RENAME. With *LOAD the first file in 
the catalogue will be loaded. A very handy 
feature is retention of information on the 
drive, library, directory, density and 
others over a soft Break. 


Extra star commands include MLOAD and 
MRUN. These enable machine code files to 
be loaded over the disc work space.  *HELP 
FILES displays information on any opened 
files, and *HELP SPACE displays free disc 


space together with the sizes of any 
'gaps' on the disc. 

In use, Watford's DDFS proved to be 
very reliable and no compatibility 


problems were encountered. The reason for 
this (claims Watford) is an extensive 8271 
emulator within the DDFS EPROM which 
simulates the single density controller. 
In practice this would appear to work 
well, as all the protected software ran 
without trouble. 


UDM DDES 3,10 

United Disc Memories has had its DDFS 
on the market for quite some time. The 
product has recently been improved and 
offers a number of features not found in 
the early versions. 

UDM has opted to use the 2793 disc 
controller chip and unlike most other 
DDFSs only sixteen sectors per track are 
used. This means that the double density 
Storage capacity for a 4% track disc is 
16ØK, and 32ØK for 80 track. 


The DCB is a low profile board which 
is supplied with a 40 pin sacrificial 
Socket. Other parts in the kit include six 
chips, a header plug and the DDFS EPROM. 
Also supplied is an eight way DIP switch 
to set timings for disc access and so on. 


UDM also supplied its 198% board for 
review. This item is mounted in socket 78 
and includes two sockets: one for the 
standard 8271 controller, and the other 
for the DCB. A flying lead with two-way 


switch is attached to the 198% board. The 
board enables switching between the 
standard Acorn DFS and UDM's DDFS thus 


giving 188% compatibility. 
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Installing the DCB and 
supporting chips is easy enough, 
but the DIP switches require 
soldering. One header plug has no 
directional notch, and needs some 
guesswork as to which way it should be 
inserted! 


The DDFS can be used in one of three 
modes: single density, double density or 
double density with multiple catalogues. 
The format command requires the drive, 
density, track and title to be specified, 
and if double density is chosen the user 
is asked if extended catalogues are 
required. 


The effect of selecting the extended 
catalogue mode is to create four 
catalogues on each side of the disc. Each 
catalogue is assigned 63.5K and can store 
30 files, thus giving a total of 120 
possible files per disc. A special locked 
file called &.&&&&&&& is automatically 
saved to each catalogue when formatting, 
and this must not be erased at any cost. 


A catalogue is 
VOLUME command which 
drive and volume letter (A to D). A nice 
feature is the ability to automatically 
save to another catalogue if the current 
catalogue is full. Loading is facilitated 
by searching through each catalogue until 
the correct file is found. 


selected using the 
is followed by the 


LVL DOS 1.01 


The LVL DDFS has also been around for 
some time. Version 1.01 now includes a 
formatter and verifier within the DDFS. 


Cumana Opus 


Price A £69.95 
Sectors 
Maximum files 
Max file size 
Width (mm) 
Length (mm) 
Height (mm) 
Offset (mm) 
Fitwith ATPL 
ROM board 


£99.95 


Software 
Compatibility 


Note: Maximum files is the number per side of a disc, not per directory. 

The offset is the distance the DCB protrudes to the right of the righthand 
edge of socket 78. 

Nine protected packages were tried on each DDFS. These were Banjax, 
Castle Quest, Elite (early version), Jet Power Jack, Labyrinth, Magic 
Mushrooms, Rubble Trouble, Sorcery, and The Mine. The figure given is the 
number of packages that successfully ran. 


———————————————————————————— — 


When ` used in its double 
density mode, the  LVL  DDFS 
provides 179K and 359K of usable 
storage for 40 and 80 track 
drives respectively. 


The kit contains nine chips, the DCB 
and the 16K DDFS EPROM. Documentation was 
in the form of a 34 page manual with a 
four sided addendum sheet. 


Fitting the kit is a little tricky. 
The DCB is rather large, and inserting it 
involves bending (very gently) one of the 
power leads. The pins on the DCB are very 
weak, and are prone to bending if uneven 
pressure is placed on the board when 
inserting it. However, finding the right 
place to put everything is made easier by 
a very clear diagram in the packaging, 
which not only shows where each chip 
should be inserted, but has the chip 
itself stuck to that position - you can't 
go wrong! 


The DDFS itself does not incorporate 
any extra commands (except format and 
verify), but does get round the 32 file 


problem in a unique way. Instead of 
providing 179 or 359K of continuous 
Storage on one side of the disc, each 
surface (or side) is divided into two 
drives. This is best explained by an 


example. A single double-sided disc drive 
has drive numbers assigned like this: 


single density | double density 
Ø Ø 4 


Top 
Bottom 2 2 6 


For dual 8Ø track drives in double 
density, eight drives are provided 
(numbered Ø to 7). This is very strange 
but it does mean that there are no extra 
commands or extensions for the user to 
learn. However, in use the LVL DDFS proved 
to be the slowest; and, worst of all, a 
lot of software would not run. 


CUMANA QFS 2.0 

Cumana - well known for their disc 
drives - have recently released the new 
version of their DDFS, or QFS as they call 
it. Unlike the other DDFSs reviewed, 
Cumana's DDFS does not offer any extra 
commands, nor does it allow extra files to 


be stored, yet it does have its 
advantages. 
The QFS provides 80% extra storage 
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capacity less 3.5K for the directory when 
used in double density mode. The only 
extra command included in the OFS is a 
formatter which automatically verifies. 


The kit is supplied with six chips as 
well as the QFS EPROM. A seventh chip is 
attached to the DCB via a flying cable. 
The DCB is a low profile board which does 
have its disadvantages, as it's very hard 
to see if the pins are inserted into the 
socket correctly. 


The formatter used in the QFS is the 
most comprehensive and user friendly I 
have ever used. The user is prompted for 
the drive to be formatted, the number of 
tracks (80, 40, and 35) and the title and 
number of the disc. There are options to 
format both sides of the disc and to 
format further discs without going through 
the instructions again. After formatting, 
the QFS is able to automatically detect 
the density and number of tracks. 


In use, Cumana's QFS proved to be very 
reliable. It was also one of the fastest, 
and practically all the test software ran 
without any trouble. 


The simplicity of the whole package 
makes it very nice to use, yet it could be 
improved by allowing for a greater number 
of files. 


OPUS DDFS 3.45 

The DDFS from Opus can best be 
described as 'feature packed'. Not only 
does it allow for up to 248 files per disc 
surface, but it also includes other useful 
utilities as well. 


The disc controller chip used is the 
1770, and 355K of user storage is 
provided. The kit consists of two chips, 
two header plugs, the DCB, and a 16K DDFS 
EPROM. 


The DCB fits neatly into socket 78 and 
a reinforcing socket ensures rigid 
connection. Unlike the others, the Opus 
DCB is small and compact. Also worthy of 
note is that the majority of the board 
faces to the left, so the DCB shouldn't 
get in the way of other items (ROM boards, 
etc.) fitted in your Beeb. 


To achieve the high number of files 


possible on one side, the first track is 
reserved by the DDFS for catalogue and 
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file information. No catalogue can exceed 
31 files, so the Opus DDFS divides the 
disc into five lettered volumes when the 
disc is formatted in double density mode. 


Up to eight volumes may be assigned, 
and this is done with the VOLGEN command. 
VOLGEN will display the current volume 
settings and allow the user to assign or 
de-assign any of the eight. However, it is 
necessary | to  *ENABLE before amending 
volume as this is a destructive command. 


Two commands which I believe are 
essential in any DDFS are included: these 
are *4080 and *DENSITY. The *4080 command 
allows 40 track discs to be used in an 80 
track drive. The command can be set to on, 
off or auto. Unfortunately the default is 
off. The *DENSITY command sets the density 
that the DDFS software will default to. It 
is usually automatically selected (which 
is handy), but many protected games 
require the density to be set to single, 
as this option provides. 


To actually 'attach' to a particular 
volume, the *DRIVE command is used. *DRIVE 
ØC, for example, would set the catalogue 
to volume C on drive 0. The method of 
saving/loading to a particular catalogue 
is also simple. *LOAD :1G.$.name would 
load a file called 'name' from volume G on 
drive 1. 


There are, however, a couple of 
problems with Opus' DDFS. It is not 
possible to format a disc in double 


density mode without the default volumes, 


and, more importantly, a number of 
packages failed to operate under this 
DDFS. 


THE SYSTEMS COMPARED 

The table of software tested will give 
you some idea as to software compatibility 
of the various systems. 


As far as file capacity is concerned 
Opus wins hands down with an excellent 
implementation of the volume handling. 


Unlike the UDM DDFS, the extra file 
information is  'hidden' within the first 
track on the disc, and there is no way 


that a user can normally corrupt this 
data. However, UDM has managed to maintain 
a higher degree of compatibility with the 
standard Acorn DFS, even without the 1ØØ% 
board. 
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Cumana offers a much simpler, 
faster and cheaper system with no 
frills, yet a high degree of 


compatibility and speed. LVL's 
method of implementing double 
density is very strange, and its price is 


high. I don't think it will appeal to many 
users. 


However, my own choice is Watford's 
DDFS. Even though it does not offer any 
DDFS like commands and it is only of 
average speed, it is reasonably priced and 
is packed with features that have been 
developed over a long period of time. The 
extended catalogue option of 62 files 
would fulfil most requirements, and 
together with the ability of saving files 
of any length (up to disc capacity) is a 
big plus in its favour. 


THE BENCHMARK 
To put the various DDFSs through their 


paces, they were subjected to 13 separate 
benchmarks. The 13 benchmarks are a 
measure of the time taken to, 


respectively, *SAVE and *LOAD 16K, PRINT# 
and INPUT# 100 integers, PRINT# and INPUT# 
100 reals, PRINT# and INPUT# 100 strings, 
PRINT# and INPUT# 100 records, randomly 
BPUT# and BGET# 100 bytes, and reverse the 
order of the contents of a file. 


The mean of all 13 benchmarks is given 
in the table for each of the DDFSs, along 
with that for Acorn's DFS and DNFS and 
Watford's DFS. A full table of all the 
benchmark results is available from the 
Editorial address on receipt of an SAE. 
The benchmark program is included in this 
month's magazine cassette/disc. 


MEAN BENCHMARK RESULTS 


Acorn Watford 
0.90 DNFS 1.43 


Watford UDM 
DDFS 1.53 DDFS 3.10 


32.19 16.40 | 18.66 | 18.27 16.75 |1299 14.27 


LVL Cumana Opus 


DOS 1.01 QFS 2.0 DDOS 3.05 
SD DD SD DD SD DD 


19.46 18.88 | 1362 1455 | 1518 14,27 
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Storing large quantities of text rapidly eats up the 


Beeb's limited memory. Surac outlines a technique 
that reduces the space needed by nearly half. 


This month the Work- 


shop looks at one way 
round the Beeb Adven- 
turer's problem of in- 


sufficient memory. If you 
want to store a lot of 
text, the 25K or so that 


is normally available 
soon gets used up. There 
is, however, a way of 


packing text so that you 
can get up to 50$ more in 
any given space. 


First, though, a quick 
resume of how characters 
are stored in the Beeb 
and most other small com- 
puters. Each character is 
allocated one of 256 so- 
called ASCII codes in the 
range 60-255, and each 
code fits neatly into an 
8-bit byte. There is also 
a variable overhead, of 
at least 5 bytes, for 
each string in the Beeb. 


This is rather waste- 
ful. If you're only dis- 
playing text, you don't 
need 256 characters and 
can get by with around 
60: A-Z, Ø-9, plus some 
punctuation marks. The 
exact mixture depends on 
just what text you have. 
Now, 5 bits can store 32 
different character codes 
and there are 3 groups of 
5 bits in two bytes. 


However, if we limit 
ourselves to only 39 
characters we can pack 
three into every two 
bytes. Unfortunately, 30 
is a bit too limiting, so 
use 60, split them into 


reserving a 


between the groups. Once this is done, all 
that's left is to find a way of packing 
three 5-bit codes into two bytes. That is 
exactly what this first program will do. 


1000 DEF PROCpackinit 

1018 DIM Key$ (1) ,cc$ (3) 

1020 DIM txtbuf 10000 

1030 Keys (9) 
" ABCDEFGHIJKLMNOPORSTUVWXYZ , , " 
+CHRS (13) 

1040 Key$(1)= 
" 0123456789*; /-=<> () ' 288. 72.2," 
+CHRS (13) 

1858 ENDPROC 

2000 DEF FNcode(str$,locn$) 

2010 LOCAL bitptr%,chcode%,chptr%, 
code$ ,kptr$,lenstr$,ptr$ 

2020 chptr$-l 

2030 lenstr$-LEN (str$) 

2040 REPEAT 


2050 ` chcode$-FNcd (MIDS (str$,chptrè, 1)) 
2060  code$-code$ OR 
chcode$*2^ (10-bitptr$£*5) 
2070 — bitptrè= (bitptrè+l) MOD 3 
2080 chptrè=chptrò+l 
2090 IF bitptrè=8 THEN PROCpack 
2100 UNTIL chptr%=lenstr%+2 


2118 IF bitptr$ THEN PROCpack 

2120 =locn%+ptr% 

3000 DEF ENcd(ch$) 

3010 LOCAL cc$ 

3020 IF chptr$-lenstr$4*l THEN =Ø 

3030 cc$-INSTR (Key$ (kptr$) ,ch$) 

3040 IF cc$ THEN -cc$ 

3050 kptr$-(kptr$*1) MOD 2 

3060 IF INSTR (Key$ (kptr$),ch$) THEN 
chptr$-chptr$-1:cc$-31 ELSE 
kptr3=(kptr%+1) MOD 2:cc$-1 

3070 -cc$ 

4000 DEF PROCpack 

4010 locn$?ptr$-code$ AND &FF 

4020 locn$?(ptr$*1)2code$ DIV &100 

4030 ptr$-ptr$42 

4040 code$-0 

4050 ENDPROC 


PROCpackinit sets up the 


r system, 
buffer area to hold the 


two groups, and allocate 
a special code to switch 


compressed data - in this example 10000 
bytes, but that's up to you. It also sets 


Beebug October 1985 


up coding strings in Key$(%) and Key$(1). 
The two strings here are good 
general-purpose ones, but you can easily 
change them to suit your own needs. 


Very common punctuation, e.g. space, 
comma and Return, appears in each. This 
can help the compression, as there is less 
need to switch between coding sets. The 
common characters are in the same place in 
each string. Also, the two strings each 
hold a maximum of 30 characters. Although 
we can code 32 different values into 5 
bits, zero is reserved to mark the end of 
a string while 31 is the shift code. 


FNcode() packs str$ into the buffer 
Starting at location locn%. Line 2060 
packs the characters, in threes, into 
code$ with FNcd() extracting the code of 
each in turn. If the character is not in 
the currently selected coding string, FNcd 
checks the other; if it finds it, it sends 
back the shift code (31), otherwise it 
sets a space. When it reaches the end of 
the string, FNcd returns a zero. 


As every three characters are coded, 
PROCpack puts their coded values into the 
buffer. When it reaches the end of str$, 
any outstanding codes are also stored. On 
exit, FNcode returns the next free address 
in the buffer. This suits the best way of 
setting up a set of compressed strings, as 
in the following pseudo-Basic: 


PROCpackinit 
P$-address of start of buffer 
REPEAT 
READ a string to code 
P%=FNpack (string,P$) 
UNTIL last string coded 
*SAVE buffer to tape/disc 
END 


o -JOY Ub: CO NB — 


Don't try to run that! You could read 
the strings to be packed from DATA 
Statements, the keyboard, or from a tape 
or disc file; the last is probably the 
most likely. At the end of the process, 
your backing store will hold a copy of the 
compressed text all ready to be unpacked 
by whatever program is going to use it. If 
you're writing lots of programs, you'll 
probably have a standard compression 
program, to use every time you need it. 


The unpacking routines will normally be 


part of a completely different program 
from the one which compressed the data. 
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Before you run the procedure you 
must first have run PROCpackinit and 
loaded the compressed data into the 
buffer. Then, by calling 
PROCdecode() with the start address 
of the packed string, the data will 
be expanded and displayed on the 
screen. I leave you to choose the 
best way of identifying the start of 
the particular code you need. 


5000 DEF PROCdecode (locn%) 
5010 LOCAL cn$,code$,i$,kptr$,ptr$ 
5020 REPEAT 


5030 PROCunpack 

5040 FOR i$-1 TO 3 

5050 cn$-2cc$ (i$) 

5060 IF cn%>Ø AND cn%<31 THEN 
PRINT MIDS (Key$ (kptr$) ,cn%,1); 

5070 IF cn$-230 THEN VDU1Ø 

5080 IF cn%=31 THEN 
kptrò= (kptrè+l) MOD 2 

5090 NEXT 

5100 UNTIL cc%(1)=Ø OR cc$(2-0) OR 

cc$ (3) 20 


5118 ENDPROC 

6000 DEF PROCunpack 

6010 code$-locn$!ptr$ AND &FFFF 

6020 cc%(1)=code% DIV 8400 

6030 cc%(2)=(code% AND &3EØ) DIV &20 
6040 cc% (3)=code% AND &lF 

6050 ptr$-ptr$*2 

6060 ENDPROC 


PROCdecode makes repeated calls to 
PROCunpack, which reads the next two bytes 
from the buffer and splits their contents 
into the corresponding 5-bit codes in 
cc$(). The codes are then used to extract 
data from Key$(), shifting between the two 
character sets every time the code 31 is 
encountered. As soon as the procedure 
reaches a zero code it exits as that is 
the end-of-string marker used. 


The decoding program must have exactly 
the same strings in Key$() as the original 
packing program. If the strings are 
different, the most amazing gibberish may 
appear. There is little point in using 
these routines unless you need to store a 
lot of text. They can never quite reach 
the 50$ improvement mark, but get very 
near if you use a long string which needs 
as few shift codes as possible. 


A complete demonstration of these routines 
is contained on this month's magazine 
icassette/disc. 


by Mitch 


ADVENTURE GAMES ADVENTURE GAMES 


This month, the Dungeon Master 
answers a few enquiries from lost 
and trapped adventurers. 


In the game 'Twin Valley Kingdom' the 
instructions hint that 'an old, wise man 
may look upon the secret of life that lies 
nearby'. The object of the game is to 
finish with as much wealth as possible 
then solve the last problem - what to do 
when you have the maximum amount of 
points? I have found the Secret of Life 
and now have the maximum score but I can't 
find an old, wise man to get him to look 
at it. Please can you tell me if there is 
such a man and where I can find him. 

Dominic Surman-Wells 


To have solved all the problems of this 
fiendish game and to have found the Secret 
of Life must have taken a long time and 
means that by now YOU must be pretty old 
and wise. It seems likely, therefore, that 
no better old, wise man should LOOK AT THE 
SECRET than yourself. 


ADVENTURE GAMES ADVENTURE GAMES 


I can spare a few moments before I 
return to feed the dragon. Can you help me 
with Sphinx Adventure by Acornsoft. 

(a) How do you remove the jack from the 
pit? 

(b) How do you cross the Glacier bridge? 
(c) How do you get out of the coloured 
maze and iron passages? 

May your sword never go rusty, 

David Barnes 


Foolish Mortal, the answer to (a) and (b) 
is close at hand - in fact on your hand, 
within the Mithril Ring! Only he who wears 
the ring may cross the bridge or solve the 
problem of the pit. Remember, waving and 
rubbing objects is always a good idea. 


'But wait!', I hear you moan, 'Where is 
this accursed ring?' Did your wise old 
mother never tell you that only fairies 
wear rings. Go seek the ring in the Fairy 
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King's Grotto, and remember to give him a 
nice WAVE. 


ADVENTURE GAMES ADVENTURE GAMES 


I am blind and play text-only adven- 
tures via a speech synthesizer (Votrax 
'Type and Talk'). I heartily agree with 
your sentiments regarding mazes! Fearful 
things, and I am stuck in the Black Maze 
in  'Castle of Riddles' by Acornsoft. 
Please give me a clue on what to do. I am 
sad to hear that more and more adventures 
are being written with graphics to give 
location descriptions. It means that I 
will not be able to play them. I hope that 
you find it of interest that blind players 
enjoy adventures as much as anyone. 

David Calderwood 


Happily the 'Castle' mazes all have clever 
solutions to their twisty paths. In your 
case the answer lies with the Metal Rod. 
Like its predecessor in 'Colossal', this 
object must be waved. You'll soon have a 
solution to your problem which like all 
good fairy stories lies somewhere just by 
rainbow's end. I should mention that this 
game cannot be solved without cheating! It 
appears to be impossible to use the rod 
for solving the problem of the maze and 
the Bear's Sitting Room in the same game. 
Unless a clever troll knows differently... 


During my travels I have met a number of 
blind programmers who have found that the 
micro has enabled them to compete at work 
and play in a way I never believed 
possible. 


ADVENTURE GAMES ADVENTURE GAMES 


In Bug-Byte's ‘Twin Kingdom Valley' 
how do you get the master key off the 
Dragon in the North Tower of the Castle? 

Philip Macilroy 


Same way as I get my slippers back from my 
Dragon - Smash him with a wooden staff. 
ADVENTURE GAMES ADVENTURE GAMES 


In Program Power's 'ADVENTURE', how do 
you kill the rat? We've tried everything! 
R.G. Petersen 


I don't really give a hoot about this 


problem, but I suggest that you do. Get 
yourself near the rat and give a loud 
HOOT. This foolishness will call a hungry 


owl from the nearby forest to knock the 
stuffing out of the rodent. saj 
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à Advanced 
wx Disc 
User 
Guide 


The Advanced Disc User Guide is 
the latest in a series of highly 
acclaimed reference books from 
the Cambridge Micro Computer 
Centre. James Fletcher has been 
taking a look at the latest offering. 


The Advanced Disc User Guide, Cambridge 
Microcomputer Centre, at £14.95. 


rare to find a technical tome 
that is written in such an enjoyably 
readable style as this 446-page Advanced 
Disc User Guide. I found the first few 
pages so interesting that I just had to 
keep on reading. The introduction claims 
that the book is meant to be read from 
start to finish, rather than just dipped 
into as a reference work. Although you 
would need to be very dedicated to read 
the whole thing at once, it does make 


LE “18 


sense to initially skim right through it 
so as to get some idea of the wealth of 
'goodies' that it contains. 


The word 'Advanced' in the title is 
most definitely justified, as some of the 
concepts used would only be of use to the 
experienced machine code programmer. How- 
ever, the book contains such clear and 
straightforward explanations of the work- 
ings of the BBC micro's disc system that 
it would be well worth a place on the 
bookshelf of any disc user who wants to 
know more about the system than the rather 
meagre amount of information he is offered 
in Acorn's Disc System User Guide. 


The author has succeeded in explaining 
the workings of the fairly complex 8271 
floppy disc controller chip in a remarkab- 
ly clear manner; although much of the 
information can be found on the 8271 
data sheets it is far from easy to work 
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out what is happening with just the 
manufacturer's information, and the book 
uses simple but useful operational flow- 
charts to help the reader's understanding. 


The lengthy but very detailed DFS 
memory map will appeal to those who just 
have to know what goes where, and the 
introduction to the filing system routines 
and vectors is cleverly done, with each 
description of a low-level DFS call being 
accompanied by a fully-documented machine- 
code example program. Although commands 
such as OSBGET (read a single byte from a 
specific file) and OSBPUT (write ditto) 
are primarily for internal use by the DFS 
and the machine operating system, you can 
learn a great deal by using these 
functions for yourself. 


An excellent example of how to build up 
a random access filing system is given, 
and the detailed description of a stamp 
collection catalogue is ideally suited to 
the beginner, with each step being clearly 
explained. It is useful to have details of 
all the various Acorn DFS error messages, 
although I usually find these less than 
helpful when something really goes wrong, 
and the book gives good advice on error 
prevention and data protection. 


Some of the disc utilities provided in 
the book are both interesting and useful, 
and I particularly liked the combined 
49/80 track formatting program (see also 
BEEBUG Vol.4 No.4), and the examples of 
disc overlay techniques which apparently 
give your computer more memory. The pros 
and cons of the Acorn DFS are fully 
discussed, and some of the snags of 
choosing a non-Acorn DFS are pointed out. 
Although these can give significant 
advantages, such as unrestricted numbers 
of files on each disc, the advice 'regard 
alternative filing systems as a risk' ties 
in with my own experiences of some of 
these products. 


All in all then, this is a most useful 
and interesting book. Perhaps not for the 
absolute beginner, but for anyone who 
wants to learn about any aspect of the 
BEEB's disc system this book is a must. If 
you can raise the £14.95 - buy it ! 558] 


This book is available on special offer to 


BEEBUG members - 
full details. 


see price list for 
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Further Disc 
Menu Extensions 


David Andrews' extended disc 
catalogue program, described in 
the June issue of BEEBUG (Vol. 4 
No. 2), has provoked considerable 
feedback. We have put the best of 
these ideas together to extend this 
useful utility even further. 


The extended disc catalogue program in 
BEEBUG Vol.4 No.2 provides a menu of your 
Basic programs on a disc along with a 
short description of each obtained from a 
REM statement at the start of each 
program. Among the many letters of praise 
for this program that we have received are 
a number giving further extensions to it. 
We have taken the best four ideas and 
present them here as separate additions to 
the previous program. 


New members who have missed the 
original program can buy a back issue (see 
page 50) or you can obtain a photocopy of 
the original article and program by 
sending an SAE and 30p to the Editorial 
address. Please mark your envelope 'DISCAT 
photocopy'. 


This article provides three extensions 
to the original program: 

1. To allow it to recognise Wordwise 
and View text files and to load these into 
the wordprocessors. 

2. To recognise 
format discs. 

3. To read 62 files on a Watford DFS. 


*SWAP (Disc Doctor) 


As each part is separate, you need 
only choose the extensions that you 
require. Note that the line numbering of 
the extensions assumes that the numbering 


of the original program has been left 
unaltered. The Wordwise and View 
extensions are combined as one, amd this 


is the extension that we describe first. 


WORDWISE and VIEW 
To load text into Wordwise and View, 
we have to set up a new procedure that 
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will enter the correct wordprocessor and 
load the text file in the required manner. 
For View, this requires a *WORD to be 
executed, followed by 'L abcd' to Load the 
text file 'abcd'. For Wordwise the program 
needs to execute a *W. command then enter 
"IN." into the wordprocessor, so if 
Wordwise Plus is in use we will clear the 
text from memory (although it is unlikely 
that there will be any there) and in 


Wordwise this will answer 'N' to the 
question 'Old Text (Y/N)'. We then enter 
'2' (Load text) and the filename. This 
will then load your selected text file 


into Wordwise. 


The following lines are the amendments 
and additions required. 


240 PTRÅNS=4:F3=BGETHNS:IFF3=244 OR 
F$-81 OR F$-124 THEN 250 ELSE 370 

250 IFF$-244 P$(T$)-l ELSE IFF$-124 

P$(T$)-2 ELSE IF F$-81 P%(T%)=3 

260 @%=2:NAMES (T$) =NAMES (Z2) 

45] IFP$(f$-1)-2 PROCwwise(1) 

452 IFP$(f$-1)-3 PROCwwise (2) 

1470 DEFPROCwwise (z) 

1471 IF z-1 THEN 1480 

1472 AS="*WORD"+CHRS$13+"L"+NAMES (fè-l) 

*CHRS13:GOTO 1490 

ASz"*Ww. My pud id 

+NAMES (£$-1) +CHR$13 

1498 sl SR Y%=ASC (MIDS (AS, 
G%,1)):X%=0:A%=138:CALL&FFF4 

1491 NEXT 

1500 END 


1489 > +CHRS1S+"2" 


The text header that is to appear in 
the disc catalogue must conform to 
specific guidelines. For Wordwise and 
Wordwise Plus, the header must be the 
first item in the file and must start with 


Mam — Description 


RES t Compre: 
TX dis atalogue extensions iM. Part 3 - 
P ° catalogue extensions 


ni 1 ji. ie 


|. Íeebugsott forum, Softvare developments. 


Disc Doctor *SMAP. 
t 2 - Watford 62 files. 


istis Part £. 


TAT tap tue Å extensions text. Part 1 - Wordwise and View, 


rentre" 5 mes. "Readers „queries, 
rkshop - Bat a compression techniques. 


B tns Eve trees este = forstan 1. 


‘otal Files 


tve Space used 18k 
Which numbered file 
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a green embedded command start character 
(function key 1), followed by two spaces, 
then *| and finally your title. This must 
all be on the same line and needs a Return 
at the end. 


For View users, you need to start your 
text with a 'DM' (Define Macro) stored 
command. Enter this by using Shift + f8 to 
edit a command, then type DM followed by 
Return. Then type 'QQ' to define your 
macro as 'QQ" and follow that immediately 
by your heading. Press Return after this 
and enter the command 'EM' for End Macro. 
This now completes the extensions for the 
two Wordprocessors. 


DISC DOCTOR *SWAP 

The extensions to allow the disc menu 
to work with *SWAP catalogues, created 
with Computer Concept's Disc Doctor, are 
given below. A single disc surface is 
treated as two separate discs. After the 
program prompts you for the disc to be 
catalogued, it will also ask if this is a 
*SWAP format disc. If it is then 
Successive catalogues of the disc will 
alternately produce the two *SWAP 
catalogues on the disc. 


225 IFNAMES (Z3)="!. 
V%=V%+512:G0T037Ø 

385 IF ?BUF%=42 U%=BUF%?1 ELSE U%=32 

400 PRINT"Drive ";D$;" ";CHRSU$;: 
IFU%<>32 PRINT" (*SWAP format)"; 

1020 PRINTTAB (27,8) "Catalogue of 


Programs"TAB (27, 9)STRINGS (21," ") 
TAB (28,11) "Current Drive" ;SPC (3); 
D$; "o. ;CHRSUS :y$z"" 


1030 IFU%<>32 PRINTTAB (28,13) "Swap 
Files (Y/N)';SPC(2);:YS-GETS: 
IFYS="Y" PRINT"Yes" 

1035 IFYS="Y" PROCoscli ("SWAP") : ENDPROC 
:ELSE PRINTTAB (28,13) "New drive" 
SPC (7) ; : drive$-GET-48 


To run this program on *SWAP discs, 
you must title (using *TITLE) one 'half' 
catalogue with a name starting with '*A' 
and the other 'half' with one starting 
with '*B'. The extended program must be 
saved on both 'halves' of the *SWAP format 
disc, drive 0. With this amendment, the 
program will run with both *SWAP and 
standard format discs. 


WATFORD DFS 62 FILES 


The appropriate amendments and 
additions to allow the menu to cope with a 
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Name — Description 


cassette file input demo 
simple ‘database’ interogator 
cassette file input dei 

MODE Mixed MODE display 


po T a don a 


MOUNE E nan. spav 
RAM EPROM PROGRAMMER 
PROGRAM t disc verifier 


s NUR pant an DEMO 


E Wm "p ere 


DE d Jn 


Total Files 50 — Space used bok 


Watford DFS 62 
follows. 


file catalogue are as 


220 FORZ%=ØTOR%-1 

360 IFT$-18 OR T$-36 OR T$-54 VDU7: 
PRINT'".. Any key to continue ..": 
IFGET: VDU11: PRINTSPC (27) :VDU11,11 

410 PRINTTAB (32) "Total files "; (R3+S%) 
TAB (63) "Space used "; (V%+500) 
DIV1ØØØ; "k" 

1980 DIMBUF$8400 ,readcat&50 

1160 ?P$-D$:P$!1-BUF$:P$?5-3:P$?76-853: 

P$?7-20:P$78-0:P$79-824:P$?10-0 

S$-0:R$-(BUF$?&105)/8:1F BUF$!&200 

-&AAAAAAAA S$- (BUF$?&305)/8 

1220 IF R%<1 PRINT''"No Suitable files. 
"'"Press any key.":G-GET:RUN 

1230 DIMNAMES (R%+5%-1) , P$ (R%+5%-1) 

1240 FORZ$-0TOR$-l 

1310 NEXT:IF S$-0 THEN 1320 

1311 BUF$-BUF$-&200:FORZ$-0TO S$-1 

1312 FORY$-0TO6:Q$-R$47$ 

1313 NAMES (Q3) =NAMES (Q$) +CHRS (BUF$? 
(YS+8* (Z3+1))) 

1314 NEXT: G%=BUF3? (Y3+8* (Z3+1 ) ) 

1315 IF G%>127 G%=G%AND&7F 

1316 NAMES (Q$) -CHR$G2-*" , "+NAMES (Q%) 

1317 NEXT 


1218 


These extensions will allow the menu 
to read both 62 file and normal 31 file 
catalogues. 


With all of these extensions in place, 
you now have one of the most comprehensive 
menu programs available for the BBC micro. 


Many thanks are due to A.R.Webster, David 


Andrews, Alan Marshfield, P.J.Swan and 
David Graham for suggestions and help in 
compiling these additions. 
r 
SU 
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Looking at 
Data structures 


(Part 2) 


Paul Ganney continues his look 
at data structures by describing 
how to implement linked lists, 
and goes on to discuss the 
principles of tree structures. 


Last month we investigated the 
principles of linked lists and how they 
operate. Structures like linked lists are 
not available in lanquages such as Basic, 
and so they must be implemented in terms 
of arrays. The first program does this, 
and provides insertion and deletion 
"facilities as well as the ability to 
display the linked list. 


1Ø REM LINKED LIST DEMO 
20 REM VERSION B0.1 
3Ø REM AUTHOR P. GANNEY 
40 REM BEEBUG OCTOBER 1985 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
100 MODE 7 
118 VDU23,1,0;0;0;0; 
120 DIM A (1,9) 
130 REM A(0, ) IS DATA 
140 REM A(1, ) IS POINTER 
150 REM NULL POINTER IS -1 
160 start$-- 
170 free$-0 
180 A(1,9)=-1 
190 FORI=ØTO8:A (1,1%)=1%+1 : NEXT 
208 : 
21Ø REPEAT 
22Ø PROCmenu 
23Ø UNTIL FALSE 
240 
1000 DEF PROCmenu 
1018 PROCheader(1,2,"LINKED LIST") 
1020 PRINT'"'CHR$133; "Input choice:"''C 


HRS133;"1. Insert an item" 'CHR$133;"2. D 
elete an item" 'CHRS$133;"3. List data" 'CH 
R$133; "4, End" 

1030 REPEAT:A$-GET-48:UNTILAZ2ÜAND A%<5 

1040 IFA$-1 THEN PROCinsert ELSE IF A$- 
2 THEN PROCdelete ELSE IF A3=3 THEN PROC 
list ELSE CALL!-4 

1050 ENDPROC 

1060 : 

1070 DEF PROCheader (front3,backò, TEXTS) 

1080 LOCAL spaces 
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1090 VDU26,12 

1100 IF LEN TEXT$>33 THEN spaces=Ø ELSE 

spaces= (33-LEN (TEXTS) )DIV 2 

1118 FOR I$-0 TO l:PRINTTAB (spaces,I$) ; 
CHRS (128+back3) ; CHR$157; CHRS (128+front3) 
;CHRS$141;TEXT$;" | ";CHRS156:NEXT 

1120 vDU28,0,24,39,3 

1130 ENDPROC 

1140 : 

1150 DEF PROCdelay:TIME=Ø:REPEAT:UNTIL 
TIME>1 00: ENDPROC 

1160 : 

1170 DEF PROCinsert 

1188 PROCheader (3,4," INSERT") 

1190 IF free$--l THEN VDU7,129:PRINT"LI 
ST FULL": PROCdelay: ENDPROC 

1200 INPUT"Data item",A(0,free$) 

1210 F$-A(l,free$) 

1220 IF start$--l THEN start$-free$:A (1 
,Start$)--1:GOTO1310 ELSE IF A(Ø,free%) 
<= A(Ü,start$) THEN A(1,free%)=start3:st 
art$-free$:GOTOl310 

1230 J$-start$ 

1240 K$-FALSE 

1250 REPEAT 

1260 I1%=A(1,J%) 

1270 IFI$--l THEN K%=TRUE ELSE IF A(Ø,f 
ree$)«-A(0,I$) THEN K$-TRUE ELSE J$-I$ 

1280 UNTILK$ 

1298 A(l,free$)-A(1,J$) 

1300 A(1,J%)=free% 

1318 free$-F$ 

1320 ENDPROC 

1330 : 

1340 DEF PROCdelete 

1350 PROCheader (5,6, "DELETE") 

1360 IF start$--l THEN VDU7,129:PRINT"E 
MPTY LIST - NOTHING TO DELETE":PROCdelay 
:GOTO1450 

1370 INPUT"Data item",D$ 

1380 I$-start$ 

1399 J%=-1 

1400 K$-FALSE 

1419 REPEAT 

1420 IF I%=-1 K$-TRUE ELSE IF A(0,I$)-D 
$ THEN K$-TRUE ELSE J%=13:13=A (1,13) 

1430 UNTILK$ 

1440 IF I$--1 THEN VDU7,129:PRINT"ITEM 
DOES NOT EXIST": PROCdelay ELSE IF J$-- 
THEN S3=A(1,start%) :A(1,start%)=free%: fr 
ee$-start$:start$-S$ ELSE A(1,J%)=A(1,1% 
):A(1,I$)-free$:free$-I$ 

1450 ENDPROC 

1460 : 

1470 DEF PROClist 

1480 PROCheader (2,3, LIST") 

1490 IF start$--l THEN PRINTCHRS!30; "EM 
PTY LIST":GOTO!550 

1508 I$-start$ 

1510 REPEAT 
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1520 PRINTA (9,13) 

1538 I%=A (1,1%) 

154Ø UNTILI%=-1] 

1550 PRINT''"PRESS SPACE":REPEAT:UNTILG 
ET=32: ENDPROC 


PROGRAM NOTES 
160-190 set un the free space list (at 
this stage the entire array). 


1170-1320. Insertion. Three 'special 
cases' are possible. These are tested for 
first and acted upon should one of them 
have occurred. Line 1190 checks for free 
space. Line 1200 inputs the new item into 
the first free space. Line 1220 tests if 
the list is currently empty (startè=-l), 
and if the new item should be placed at 
the head of the list. Lines 1250-1280 
trace through the list until either the 
correct place in the list is found or the 
end of the list is reached. Lines 
1299-1310 adjust the pointers as was 
described in the first article. 


1340-1450. Deletion. The list is first 
tested for anything to delete (1360) and 
is then traced through (1380-1430) until 
either the item is found, or the end of 
the list is reached. If the item has been 
found, then pointers are adjusted so that 
the item before the one to be deleted now 
points to the one after it, and the 
deleted item is added to the front of the 
free space list, its pointer being 
adjusted to point to the previous head of 
this list (line 1440). 


1470-1550. Listing. Simply traces 
through the list. I$ is the index (place 
in the array) of the item being listed. 


After printing the data item (A(0,I$)), I$ 
is set to the pointer from this item 


(A(1,I$)) - the index of the next item. 
This continues until I$ - -l, the 
terminator. 

This version of a linked list, 


implemented using a two dimensional array, 
will only work for numeric data. For 
string data we could use separate arrays 
for the data and the pointers. 


USING MAIN MEMORY 


One disadvantage of large arrays is 
that pressing the Break key automatically 
clears the array. A better method is to 
store the data in main memory (adjusting 
HIMEM so that the O.S. doesn't overwrite 
it) using indirection operators (see User 
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Guide, 0.409, BEEBUG Vol.3 Nos.7 and 8). 
The resident integer variables (also 
unaffected by Break) can also assist 


further as the pointer variables. 


For the purpose of an example, let us 
assume that we wish to set up a catalogue, 


each record consisting of an eight 
Character identifier (name) , and an 
integer number. This gives us fifteen 


bytes per record (8 plus |  (end-of-string 
character) for the identifier, 4 for the 
integer, and 2 for the pointer). Thus, to 
hold 190 records, we require 1500 (&5DC) 
bytes and hence HIMEM must be set at 30244 
(&7624) in mode 7. This section of memory 
will then be partitioned into the l5-byte 
blocks by setting all the pointers so as 
to form the free space list. S% and F$ 
will be used for the start and free space 
pointers, respectively. 


Note that, although !&7BFE 
pointer from the last item) is 
set to -1 (the terminator), all subsequent 
tests for terminators are for 255, due to 
the nature of the indirection operators. 
Note also that the Break key must be 
programmed to reset  HIMEM whenever 
pressed, in order to preserve the data. 


(the 
initially 


The second program shows how a linked 
list can be set up in memory and listed. 
This isn't a complete program, but a full 
routine, equivalent to the first program, 
is included on this month's magazine 
cassette/disc. 


100 MODE7 

118 VDU23,1,0;0;0;0; 

120 HIMEM=&7624:5%=255:F%=HIMEM: *K, 100 
.MH. -&7624MG. 60M 

130 FORI%=&7631 TO &7BEF STEP15:!I$-I$ 
+2: NEXT: !I$-- 

14Ø : 

1540 DEF PROClist 

1550 PROCheader (2,3, LIST") 

1560 LOCAL P$ 

1570 P$-S$ 

1580 VDU14 

1598 PRINTCHRS$130; "Press" ;CHRS136; "Shif 
t";CHRS137;"For next part of list" 

1600 IF P%=255 THEN PRINTCHRS133; "LIST 
EMPTY" ELSE REPEAT: PRINTSP%,P%!9:P%=P%?1 
4#256+P3213:UNTIL P$-255 

1618 VDUI5 

1620 PRINT''"PRESS SPACE":REPEAT: UNTIL 
GET-32 

1639 ENDPROC 
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BINARY TREES 


Another linked data structure is the 
binary tree. The great advantage of the 
binary tree is that the data structure 
intrinsically reflects the ordering of the 
data stored in it. The binary tree has two 


pointers per element (or node), known 
respectively as the left and right 
pointers. The basic principle is that 
there exists a central node, called the 


root, which is (of course) at the top of 
the binary tree. Confused? No need to be, 
as the ideas are simple enough, it's just 
the terminology muddling matters as usual. 


From the root, the binary tree spreads 
in two directions, left and right. Those 
nodes to the left are ordered before the 
root, those to the right after it. Moving 
down the binary tree to another node 
presents the same picture of two pointers. 
It is this feature that makes binary trees 
so useful. At any node (position in the 
binary tree) the structure below this 
point is also a binary tree (a 
'sub-tree'). A node with no sub-trees is 
called a terminal node. The absence of a 
sub-tree is recorded by a terminator in 
the appropriate pointer, in much the same 
way as the end of a linked list is 


recorded. 
zx 
21 85 
Få ` 
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73 
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At this point, an example would be 
useful. Consider the insertion of the 
number 57 into the purely numeric binary 
tree in the figure, The process is as 
follows: 
1. 57 is greater than 32, so branch 
right. 
2. 57 is less than 85 so branch left. 
3. 57 is less than 62 so branch left. 
4. A terminator is reached, so place 
the data item 57 here, to the left 
Of 62. 


Again, you may like to try creating a 
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binary tree from the following items (the 
first item inserted automatically becomes 
the root): 

32,85,62,21,73, 7. 
You should end up with the original binary 
tree. 


Having established the principles of 
inserting an item into a binary tree, what 
of deletion? This is actually a  thornier 
problem than at first may seem to be the 
case. The pointer to the deleted node must 
be made to point to the left sub-tree of 


the deleted node. The right sub-tree of 
the deleted node becomes the rightmost 
element of the left sub-tree of the 
deleted node. If this sounds confusing 


(and it is!) follow the process through on 
the diagram. 


^ 
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DELETE H POINTER TO H NOW POINTS TO I 
I HAS NO RIGHT POINTER, SO THIS 
POINTS TO SUB-TREE, K 
Listing the data in a binary tree 


(often called traversing the binary tree) 
is a simple recursive algorithm: 
Traverse left sub-tree, if there is 
one. 
Print node. 
Traverse right sub-tree, if there is 
one. 
As BBC Basic supports recursion, there is 
no problem implementing this routine. 


Searching for an item in the binary 
tree is simply an application of the 
insertion principles, testing as we go for 
the required item, outputting an 'Item not 
found' message if a terminator is reached. 


All these features are implemented in 
the following demonstration program: 


10 REM PROGRAM BINARY TREE DEMO 

20 REM VERSION B0.1 

30 REM AUTHOR P, GANNEY 

40 REM BEEBUG OCTOBER 1985 

50 REM PROGRAM SUBJECT TO COPYRIGHT 
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60 : 
100 MODE3 
118 ON ERROR REPORT:END 
120 PROCsetup 
130 REPEAT 
140 option$-FNmenu 
150 IF option$-1 THEN PROCinsert 
160 IF option$-2 THEN PROCdelete 
178 IF option$-3 THEN PROCsearch 
180 IF option$-4 THEN PROClist 
198 UNTIL option$-5 
200 MODE 3:END 
1000 DEF PROCsetup 
19010 LOCAL i$ 
1828 DIM data$ (180) , left$ (190) , right$ (1 


1038 rootò=-l: freeè=0 

1040 FOR i%=Ø TO 100 

1850 left% (i$)--l:right$ (i$)--1 

1060 NEXT i$ 

1070 PRINTTAB (31,2) "BINARY TREE DEMO" 
1080 VDU28,Ø,24,79,4 

19090 ENDPROC 

1100 : 

1119 DEF FNmenu 

1120 LOCAL option$:CLS 

1130 PRINTTAB(10,2)"l. Insert new item" 
1140 PRINTTAB (10,4) "2. Delete item" 
1158 PRINTTAB (12,6)"3. Search for item" 
1160 PRINTTAB (12,8)"4. List all items" 
1170 PRINTTAB(1Ø,1Ø)"5. Exit" 

1180 PRINTTAB(1Ø,14) "Enter your choice" 


, 

1190 REPEAT:option$-GET:UNTIL INSTR ("12 
345" ,CHR$ (option$)) 

1200 -option$-48 

1210 š 

1220 DEF PROCinsert 

1230 LOCAL DS:CLS 

1240 IF free%>1ØØ THEN PRINT'"Tree full 
.":GOTO 1330 

1250 INPUT''"Enter new data string (max 
6 characters): " DS 

1260 IF root%=-1 THEN root%=free%:GOTO 
1300 

1278 found$-FNsearch (D$) 

1280 IF found%>-1 THEN PRINT'D$;" alrea 
dy exists in position ";found$:GOTO 1320 

1290 IF turn$="L" THEN left$(lasturn$)- 
free% ELSE right% (lasturn$)-free$ 

1300 datas (frees) =DS: frees=frees+] 

1318 PRINT'D$;" now entered" 

1320 PRINT'"Press any key to continue": 
key$-GET 

1330 ENDPROC 

1340 : 

1350 DEF PROCdelete 

1360 LOCAL found%,P%:P%=root%:CLS 

1378 IF P$--1 THEN PRINT'"Tree empty":G 
OTO 1498 
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1388 INPUT''"Enter data string: " DS 

1390 found$-FNsearch (D$) 

1400 IF found$--l THEN PRINT'"Not found 
"sGOTO 1490 

1418 IF found$-root$ THEN root%=left% (r 
oot$):GOTO 1430 

1420 IF turn$="L" THEN left$(lasturn$)- 
left$(found$) ELSE right$(lasturn$)-left 
% (found) 

1430 P$-left$ (founds) 

1440 IF root$--l THEN root$-right$ (foun 
d$):GOTO 1480 

1450 IF P%=-1 THEN left%(lasturn%)=righ 
t$(found$):GOTO 1480 

1460 REPEAT: last$-P$:P$-right$ (P$):UNTI 
L P$--] 

1470 right% (last$)-right$ (found$) 

1480 PRINT'D$;" now deleted" 

1499 PRINT'"Press any key to continue": 
keyò=GET 

1500 ENDPROC 

1510 : 

1528 DEF PROCsearch 

1530 LOCAL found%,P%:P%=root%:CLS 

1540 IF P%=-1 THEN PRINT'"Tree empty" :G 
OTO1580 

1550 INPUT''"Enter search string: " D$ 

1560 found%=FNsearch (D$):PRINT' D$; 

1578 IF found%>-1 THEN PRINT" found in 
position ";found$ ELSE PRINT " not found 
" 


1580 PRINT'"Press any key to continue": 
keyò=GET 

1590 ENDPROC 

1600 : 

1618 DEF FNsearch (D$) 

1620 LOCAL found$,P$:found$-FALSE:P$-ro 
ot$ 

1630 REPEAT 

1640 IF D$-data$ (P$) THEN found$-TRUE E 
LSE lasturn$-P$:IF DS<data$ (P$) THEN P%= 
left? (P$):turn$-"L" ELSE P$-right$(P$):t 
urn$="R" 

1650 UNTIL P%=-1 OR founds 

1660 -P$ 

1670 : 

1680 DEF PROClist 

1698 CLS:IF root$--l THEN PRINT"Tree em 
pty" ELSE PROClistl (rootò) 

1700 PRINT'"Press any key to continue": 
keyò=GET 

1718 ENDPROC 

1720 : 

1730 DEF PROClistl (start) 

1740 IF left%(start%)<>-1 THEN PROClist 
1 (left% (start$)) 

1758 PRINT data$ (start?) 

1760 IF right%(start%)<>-1 THEN PROClis 
tl (right$ (start$)) 

1770 ENDPROC SES] 
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Interfacing 
the BEEB 


Eight books reviewed 


With our EPROM Programmer 
Project we thought it timely to 
take a look at some of the many 
books now available on inter- 
facing the Beeb. Geoff Bains has 
been doing all the reading. 


When the BBC Micro was first launched 
it was much vaunted as having great 
potential for laboratory work and computer 
control. The same is true today. Some of 
that potential has been fulfilled by 
commercial devices but most is left up to 
the user with an interest in electronics 
and skill with a soldering iron. 


To help out would-be DIY enthusiasts 
to construct their dreams, several books 
have come onto the market. All of these 
comprise three broad subjects: theory, 
constructional details, and supporting 
software. However, the relative 
proportions of these varies enormously, as 
do the topics for construction, the depth 
of discussion, and the skill levels 
assumed of the reader. 


Sensing and Control Projects for the BBC 
micro by Thomas Nunns. £5.95 from Micro 
Books. 


This book is the simplest of all those 
reviewed here. The book is divided between 
projects for 


the analogue port and those_ 


Irelay drivers, 


D 


for the user port. The most complex (and 
appealing) of the ten projects covered is 
a slot car controller using simple relays 
and driver chips. The other projects are 
the like of LED traffic lights and 
measuring light levels. 


Although the projects are, to say the 
least, uninspiring, the strength of this 
book is its constructional details. No 
soldering is required. Everything either 
screws or clips together. Large lettering, 
large diagrams and many sections on ‘what 
to do if it doesn't work' mean that this 
book is ideal for older children or those 
who have never seen a piece of wire, let 
alone a chip, before. 


Micro Interfacing Circuits Book l and 2 by 
R.A.Penfold. £2.25 from Babani. 


These two slim volumes are the 
opposite extreme from the previous book. 
There is next to no constructional details 


here, nor supporting software either. 
However, the books cover a wide range of 
topics - everything from powering LEDs to 


audio digital filters - and they are meant 
for other micros as well as the Beeb. 


Only the circuits are provided along 
with a very brief explanation of their 
workings and pinouts of the various chips 
and transistors used. Babani books are a 
well known sight in component shops and 


their style is pretty uniform, so if you 
have never come across a Babani 
electronics book before, the chances are 
that these are not going to be 


introductory enough for you anyway. 


DIY Robotics and Sensors with the BBC 
micro by John Billingsley. £6.95 from 
Sunshine Books. 


This book is one of the more 
specialist tomes. The first half is given 
over to the run of the mill light pens and 
even a DIY joystick! The 
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second half is where the rather grandiose 
title takes over. It is mainly devoted to 
the control of stepper motors. 


I get the impression that this book 
was written ina rush. There is a lot of 
theoretical background given and even 
'experiments' to prove the fundamental 
operation of stepper motors. The result is 
an averaged sized book with an awful lot 
that you don't actually want. The 
diagrams, too, are just rough sketches. If 
you are a dedicated electronics fan with a 
desire to get into robotics, then this 
book could provide a starting point. 
However, don't expect too much in the way 
of in-depth constructional details. This 
book really just maps out the terrain. 


Interfacing and Control on the BBC micro 


By Re Johnson, C. Procter, and A. 
Reglinski. £9.95 from NEC. 
This book is essentially a text book 


for followers of the relevant NEC course. 
However, it is sold in 'normal' bookshops 
and so could well tempt the would-be 
interfacer. Although the book is fairly 
comprehensive it would not be recommended 
for most readers. 


For a start all the projects are not 
DIY boards but based around a ready-made 
circuit board marketed by the NEC. In 
addition, the book IS a text book and the 
style does not encourage enthusiasm for 
the subject. It is also filled with 
questions and answers which are not really 
applicable outside the course. That said, 
the book does offer a reasonable grounding 
in the use of the Beeb's analogue and VIA 
ports. However, at nearly £18 the price 
alone is going to put many off. 


Interfacing the BBC microcomputer by B. 
Bannister and M. Whitehead. £7.50 from 
Macmillan. 


Macmillan's Beeb interfacing book can 
= 
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best be described as one for those well 
familiar with building their own 
electronics gadgets but have not yet tried 
this in the computer field. 


The book starts off with a detailed 
description of the facilities available. 
There is a chapter on the user port and 
one on the 1MHz bus, and one on the 
handling of analogue data. It is only by 
page 78 that 'some applications' are 
discussed. These are not so much 
applications as an extension of the theory 
with mention of some specific components. 
No real constructional details are given; 
it is assumed the reader knows all about 
that kind of stuff already. 


By the time page 103 comes along the 
applications are all finished and we are 
back with the theory in the form of the 
appendices. These mainly give pages and 
pages of data sheets from various chip 
manufacturers. For a  near-expert in 
electronics, unfamiliar with the operation 
and architecture of a microcomputer, this 
book would no doubt go down well. However, 
if you intend to actually build something 
after reading this, and you have not 
wielded a soldering iron that much before, 
let alone designed your own circuit 
boards, you are likely to be disappointed. 


Interfacing the BBC microcomputer by Colin 
Opie. £8.95 from McGraw-Hill. 


Colin  Opie's book follows Messrs 
Bannister's and Whitehead's in more than 
just title. It too has large sections at 
the front (about two thirds of the 200 
page book) devoted to the explanation of 
the detailed operation of the user port, 
lMHz bus, and the Beeb in general. 
However, this time the whole is written in 
a manner that, for me, was a lot more 
acceptable and encouraging. 


Once the 
"experimental 


hardware projects (the 
hardware') is reached it 


|| INTERFACING PROJECTS 
MICRO 


transpires that it is all based around 
circuit boards that can be purchased, 
ready made or in kit form, separately 
(from Watford Electronics). Granted the 
printed circuit board layouts are given at 
the end of the book, but it is unlikely 
that most potential buyers of this book 
will have the skill or the inclination to 
start messing around, making their own. 


The hardware is advisedly called 
'experimental'. There is little in the way 
of applications here. The boards are 
potentially very useful but nothing is 
really said on what and how they could be 
usefully applied. 


Again this is a book for those 
already knowledgeable in the field. As a 
reference work for the electronics 
hobbyist the friendly style and excellent 
explanations of the theory of the Beeb's 
ports it is recommended, but the lack of 
real application and home appeal spoils 
the book's chances for most of us. 


BBC Hardware Projects by Don  Thommasson. 
£8.95 from Melbourne House. 


Keeping the best for last, this is one 
of the two books in this bunch that can 
really start you off on an interesting and 
enlightening foray into the world of 
electronics. 


The book starts off with a theory 
section. This only lasts for a quarter of 
the book's 200 or so pages but manages to 
reveal enough of the workings of the Beeb 
to keep you going for the rest of the 
book. 


Then there is the constructional 
section. The range of projects is not very 
inspired but all are laid out on 
stripboard and so are eminently 
attemptable by the average Beeb owner. You 
don't have to be an electrical engineer to 
manage these. 


The projects cover interfacing to the 
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analogue and user ports. There is a light- 
detector, voltmeter, relay-driver, mains 
power controller, numeric keypad, and 
others. Although these may not seem to be 
great advances in the field of computer 
control, you do at least leave this book 
with a feeling that these things are 
actually possible; even you could achieve 
this. 


The book does, however, fall down a 
little on the meagre supporting software. 
This is a pity as the combination of the 
excellent Beeb operating system and its 
interfacing abilities make the system 
ideal for this kind of thing. Only give 
half the story and you only have half the 
fun. 


Interfacing Projects for the BBC micro by 
Bruce Smith. £6.95 from Addison-Wesley. 


Like the previous book this one is a 
practical work. Some theory is given at 
the start (including a classic padding 
chapter on hex and binary!) but you soon 
get into the meat of the projects. These 
cover a good range - from light pen to 
EPROM Programmer (yes, other's have done 
it too!). Each project is accompanied by 
an adequate description of how the circuit 
works, a clear stripboard layout diagram, 
reasonable constructional details, and 
plentiful supporting software. 


It is difficult to know why this book 
pleases as it does. The presentation is 
not very good. It is short (only 130 
pages), the diagrams are more in the line 
of sketches and the program listings faint 
in places. However, please it does. The 
style is light enough to communicate the 
author's enthusiasm for the subject and 
yet it still remains very informative. 
There is little here for the absolute 
beginner, but then the book is not aimed 
at them. If you have a little experience 
with a soldering iron (or even a lot) you 
will not go far wrong with this one. 
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BEEBUG now keeps a wide variety of BBC micro related books available for 
mail order. Please send an SAE for a booklist to: 


BEEBUG BOOK LIST, P.0.BOX 50, HOLYWELL HILL, ST ALBANS, HERTS AL! |EX. 
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Roulette 
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Gambling into the night on the 
tables of Monte Carlo is no more 
than a dream (or nightmare) for 
most of us. Richard Pearce brings 
it all to life with his accurate and 
colourful implementation. 


Can you break the bank at Monte Carlo? 
Can you turn £500 into £5,000,000 or will 
you lose your shirt on the world's most 
famous gambling table? 


Roulette is a one-player game, that 
runs in mode 1, giving a good display of 
the betting table and roulette wheel. At 
the start of the game you are given £500 
to gamble, and you can place one or more 
bets with each bet not exceeding £100,000 
or the amount of money you have remaining. 
Your aim is to amass a total of £5M and 
'break the bank', although as with real 
life roulette, this is not easy! 


When run, the program presents the 
betting table and a list of options. These 
options allow you to place bets, and both 
view and spin the wheel. Please note that 
when you have completed your bet or bets, 
you Should then select the option to spin 
the wheel. A brief description of the bets 
and their odds now follows. 
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Name Description Odds 
(the following bets can include 0) 

En Plein Single Number 35-1 
A Cheval Two Numbers (adjacent) on 17-1 


the table, with vertical 
or horizontal. Zero can be 
coupled with 1, 2 or 3. 


Trans- Horizontal row of 3 numbers 11-1 
versale with Ø being combined 

Plein with any two of 1,2 or 3 

Carre Block of four numbers 8-1 


(The following cannot include 0) 


Sixaine Two adjacent horizontal rows 5-1 
Colonne Vertical column of twelve 2-1 
Douxaine Either the first, second or 2-1 
third dozen numbers, i.e. 
1-12, 13-24 or 25-36 
Deux Two dozen. Either numbers 1-2 
Douxaine 1-24 or 13-36. You must bet 


an even amount. 


Because of the length of this program 
and the fact that it runs in mode 1, disc 
users or anyone who has page set to 
greater than &EØØ will have to move the 
program down before running. This can be 
achieved by using the move down routine 


published in BEEBUG Vol.3 No.5 or by 
adding the following lines to your 
program: 


1 IF PA.«&EÜl THEN 19 

2 *K.Ø *T |MF.A%=ØTO (TOP-PA. ) S. 4 
:A$!8E00-A$ |PA. :N. |MPA. =&EØØ |M 
O. |MDEL. 0,4 |MRUN |M 

3 *FX138,0,128 

4 END 


Please take care when typing the 
program into your computer that no extra 
spaces are inserted because the program 
could run out of memory as a result. 


10 REM PROGRAM ROULETTE 

20 REM VERSION B0.1 

30 REM AUTHOR R.PEARCE 

40 REM BEEBUG OCTOBER 85 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


70  ONERRORGOTO! 90 
80 MODE]: PROCsetup 

90 REPEAT:CLS 

188 VDUI9,2,2,0,0,0 

118 VDU23,1,0;0;0;0; 

128 PROCgame:VDU4,17,3 

130 CLS:IFK$-0GOTOlSQELSESOUND! ,2,4 ,50 
: PRINTTAB (5,1Ø) "YOU HAVE BROKEN THE BANK 
! "TAB (9,16) "Pretty clever-huh!"TAB (9,18) 
"How about lending me" 
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148 PRINT TAB(9,20)"ten quid till Tues 
day?":GOTO17Ø 
150 PRINTTAB (7,11) "YOU HAVE NO MONEY L 
EFT ! ": FORI $=3ØTOØSTEP-1 : SOUND ,4,1%,2:NE 
XT: PRINTTAB (4,14) "You're a pretty awful 
gambler "TAB (4,16) "aren't you? I wouldn't 
advise" 
168 PRINTTAB (4,18) "taking your life sa 
vings to":COLOUR2:PRINTTAB (4,20) "Monte C 
arlo!" 
170 COLOUR1 : PRINTTAB (6,24) "Do you want 
another game?": REPEAT: F3=GET: UNTILF%=78 
ORF%=89 
180 UNTILF%=78:COLOUR3:END 
190 MODE6:REPORT:PRINT" at line ";ERL 
200 END 
210 : 
220 PRINTTAB (5,3); "EN PLEIN":PRINTTAB ( 
2,4);"Single Number" 
230 PROCbet:VDU28,23,31,39,10 
240 REPEAT:CLS 
250 INPUTTAB (1,1) "What number?"L%:UNTI 
LL$«37 
260 Q$-Q$-B$:IFL$-N$H$-] 
270 PROCwin (35) : RETURN 
280 : 
290 PRINTTAB (5,3); "A CHEVAL": PRINTTAB ( 
4,4);"Two numbers" 
300 PROCbet 
310 PROCnumber 
320 VDU28,23,31,39,16 
330 IFL$-0GOTO360 
340 REPEAT:CLS 
350 INPUTTAB(1,1)"What is the sec 
ond number ?"Hi%:UNTILHi%=L%3+1ORHi%=L3+3: 
GOTO370 
360 REPEAT:CLS: INPUTTAB(1,1)"What is t 
he second number?"Hi%:UNTILHi%>ØAND 
Hi%<4:GOT038Ø 
370 IFL%MOD3=ØANDHi%=L%+1GOT031Ø 
380 Q%=Q0%-B%:IFL%=N%ORHi%=N%H%3=1 
39Ø PROCwin (17) : RETURN 
400 : 
410 PRINTTAB (3,3) ; "TRANSVERSALE 
PLEIN":PRINTTAB (2,5);"Horizontal row" 
420 PROCbet 
430 PROCnumber 
449 IFL$-0GOTO480 
450 IFL$MOD3«»1ORL$2»34GOTO430 
460 Q$-Q$-B$:1FN$2L$-lANDN2«4L£43H$2-1 
470 PROCwin(11):RETURN 
480 VDU28,23,31,39,15:REPEAT:CLS 
490 INPUTTAB(1,2)"What is the 2nd num 
ber?"L1%:UNTILL1%<3 
5ØØ VDU28,23,31,39,19:REPEAT:CLS 
51Ø INPUTTAB(1,2) "What is the 3rd num 
ber?"L2$ 
520 UNTILL2%<4ANDL2%>L1% 
530 Q$-0$-B$:1IFL$-NZORL]Z-NZORL22-NZ2H$ 


M 
A 
H 
Q 
u 
E 


C ü. F 


=== 


540 PROCwin (11) : RETURN 

550 : 

560 PRINTTAB (6,3) ; "CARRE": PRINTTAB (2,4 
);"Block of four" 

570 PROCbet 

580 PROCnumber:IFL£-0GOTO620 

598 IFL%MOD3=ØORL%>32GOT058Ø 

600 Q%=Q%-B%:IFL%=N%ORL%+]=N%ORL%+3=N% 
ORL3+4=N%H%=1 

61Ø PROCwin (8) : RETURN 

620 Q%=0%-B%:IFN3<4H%=1 

63Ø PROCwin (8) : RETURN 

640 : 

650 PRINTTAB (5,3) ; "SIXAINE": PRINTTAB (1 
,4);"Two horiz. rows" 

660 PROCbet:REPEAT 

670 PROCnumber :UNTILL3MOD3=1ANDL%<32 

680 Q%=Q0%-B%:IFN%>L3-1ANDN%<L%+6 H$-1 

698 PROCwin (5) : RETURN 

700 : 

710 PRINTTAB (5,3) ; "COLONNE" : PRINTTAB (1 
,4); "Vertical column" 

720 PROCbet : REPEAT 

730 PROCnumber : UNTILL3>@ANDL3<4 

740 Q3=0%-B%:FORIZ=9TO1 1: IFL$+ (3*I2)-N 


$ H$-1 
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758 NEXT: PROCwin (2) : RETURN 

760 : 

778 PRINTTAB (5,3) ; "DOUXAINE" : PRINTTAB ( 
6,4) ; "Dozen" 

780 PROCbet:REPEAT 

798 PROCnumber : UNTILL3MOD12=1ANDL3<26 

800 Qg&-Q$-B$:1FN$2L$-l1ANDN$4L$412 H$-1 

819 PROCwin(2):RETURN 

820 : 

830 PRINTTAB (1,3) ; "DEUX DOUXAINES":PRI 
NTTAB (3,4) ; Two dozen" 

840 PROCbet:IFB3MO0D2=1B%=B%-1 

850 REPEAT 

860 PROCnumber : UNT ILL%MOD12=1ANDL%<14 

870 Q%=0%-B%:IFN3>L3-1|ANDN%<L3+24H%=1 

880 PROCwin (8.5) : RETURN 


900 PRINTTAB (3,3) ; "PASSE/MANQUE" : PRINT 
TAB (4,4) ; "High/low" 

910 PROCbet:REPEAT 

920 PRINTTAB(1,6);"Press key for ch 
oice (P/M)" 

930 L$-GET:UNTILL$-770RL$-80 

949 IFN$-0GOTO970 

950 H%=Ø:Q0%=Q%-B%: IFN%<19ANDL3=770RN%> 
18ANDL$-89H$- 

960 PROCwin(1) :RETURN 

970 PROCG: IFN1%=0: RETURN 

980 H%=0:Q%=Q%-B%:IFN1%<19ANDL%=77ORN1 
$»18ANDL$-80H$2-]1 

990 PROCwin (Ø) : RETURN 

1ØØ9 : 

1010 PRINTTAB (2,3) ; "PAIR/IMPAIR":PRINTT 
AB (3,4) ; "Even/odd" 

1020 PROCbet:REPEAT 

1038 PRINTTAB(1,6);"Press key for ch 
oice (P/I)" 

1049 L3=GET:UNTILL%=730ORL%=8Ø 

1958 IFN$-0GOTO!080 

1860 H$-0:0$-Q$-B$:1FL£MOD2-N$MOD2H$-1 

1070 PROCwin (1) : RETURN 

1080 PROCØ:IFNI13=Ø:RETURN 

1690 H%=0:Q%=Q%-B%: IFL3MOD2=N1|%MOD2H%=1 

11ØØ PROCwin (Ø) : RETURN 

TUNG s 

1120 PRINTTAB (4,3) ; "NOI R/ROUGE" : PRINTTA 
B (4,4) ;"Black/red" 

1130 PROCbet:REPEAT 

1140 PRINTTAB(1,6);"Press key for ch 
oice (N/R)" 

1150 L%=GET: UNTILL3=780RL3=82 

1168 IFN$-0GOTOI!99 

1170 H$-20:02$-Q$-B$:RESTORE1830:FORI$-1T 
ONSZ:READE$:NEXT:IFE-ÜANDL£-780RE$-1ANDL 
%=82H3=1 

1188 PROCwin (1) : RETURN 

1198 PROCØ: IFN13=Ø: RETURN 

1200 H3=Ø:0%=0%-B%:RESTORE183Ø:FORIS=1|T 
ON12:READEZ:NEXT:IFEZ-0ANDL$£-780RE$-]AND 
L3=82H%=1 
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1218 PROCwin (Ø) : RETURN 

1220 : 

123Ø PROCwheel 

1240 MOVE835,1ØØ:PRINT"PRESS SPACE TO": 

MOVE835,65: PRINT"RETURN TO MENU": IFGET 

1250 PROCtable:PROClist 

850 REPEAT 

860 PROCnumber : UNTILL%MOD12=1|ANDL%<14 
870 Q3=0%-B%:IFN%>L3-1|ANDN%<L%+24H%=1 
889 PROCwin (@.5) : RETURN 


900 PRINTTAB (3,3) ; "PASSE/MANQUE" : PRINT 
TAB (4,4) ; "High/1ow" 
913 PROCbet:REPEAT 
920 PRINTTAB(1,6);"Press key for ch 
oice (P/M)" 
930 L$-GET:UNTILL$-770RL$-80 
940 IFN$-0GOTO970 
959 H$-0:Q$-0$-B$:IFN$«19ANDL$-770RN$» 
18ANDL$-80H$-1 
960 PROCwin (1) : RETURN 
970 PROCØ: IFN13=Ø: RETURN 
980 H3=Ø:0%=Q%-B%: IFN1%<19ANDL3=770RN1| 
$»18ANDL$-80H$-1 
990 PROCwin (Ø) : RETURN 
1008 : 
1010 PRINTTAB (2,3) ; "PAIR/IMPAIR":PRINTT 
AB (3,4) ; "Even/oad" 
1020 PROCbet:REPEAT 
1039 PRINTTAB(1,6);"Press key for ch 
oice (P/I)" 
1049 L%=GET:UNTILL%=73ORL%=8Ø 
19050 IFN$-0GOTO!9080 
1069 H$-0:Q0$-0$-B$:IFL$MOD2-N$MOD2H$2-1 
1070 PROCwin (1) : RETURN 
1080 PROCØ:IFN13=Ø:RETURN 
1090 H%=Ø:0%=Q%-B%:IFL3MOD2=N1|%MOD2H%=1 
11ØØ PROCwin (Ø) : RETURN 
TIIA 3 
1120 PRINTTAB (4,3) ; "NOIR/ROUGE" : PRINTTA 
B(4,4) ; "Black/red" 
113Ø PROCbet : REPEAT 
114Ø PRINTTAB (1,6); "Press key for ch 
oice (N/R)" 
1150 L%=GET:UNTILL%=780RL%=82 
1168 IFN%=ØGOTO119Ø 
1170 H3=Ø:0%=0Q0%-B%:RESTORE1 830 : FORIS=1T 
ONS : READE% : NEXT : IFE=ØANDL3=780RE%=|ANDL 
%=82H%=1 
1180 PROCwin (1) : RETURN 
1199 PROCØ: IFN13=Ø: RETURN 
1208 H%=0:Q%=Q%-B%:RESTORE1830:FORI%=1T 
ON1$2:READEZ:NEXT:IFE$-0ANDL$-780RE$-1AND 
L$-82H$-1 
1213 PROCwin (Ø) : RETURN 
1220 `: 
123Ø PROCwheel 
1249 MOVE835,100:PRINT"PRESS SPACE TO": 
MOVE835,65:PRINT"RETURN TO MENU":IFGET 
1259 PROCtable:PROClist 
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1268 RETURN 


1280 DEFPROCwheel 

1290 VDU5:VDU26:CLS:MOVE500 ,500 

1300 FORF3=QTO36:MOVES13 (F3) ,C1$ (F2) 
1318 IFF3=ØGCOLØ,1 

1320 IFF$MOD2-0GCOLO0 , | ELSEGCOL , Ø 

1330 IFF%=36GCOL0,2:F%=-1 

1340 PLOT85,S1%(F%+1),C1%(F%+1) 

1350 IFF%=-1F%=36 

1360 MOVE500 ,500:NEXT 

1370 RESTORE1870:FORF$-0TO36 

1380 MOVES25 (F$) ,C2$ (F$) : READAS:GCOLØ,3 
:PRINTAS:NEXT 

1390 ENDPROC 

1400 : 

1418 DEFPROCtable 

1420 CLS:CLG:VDU5:GCOLQ,2 

1430 MOVEØ,Ø:MOVEØ,1Ø24:PLOT85,736,1Ø24 
:MOVE736,0:PLOT85,0,0 

1440 GCOL0,3 

1450 FORI$-0TO3:MOVE32,928- (I$*256) :DRA 
W704 ,928-(1%*256) : NEXT 

1460 FORI$-0TO! :MOVE32+ (I$*672) ,96:DRAW 
32+ (I$*672) ,928: NEXT: FORI $=ØTO1 :MOVE224+ 
(I$*288) ,96:DRAW224+ (I$*288) ,992: NEXT 
1470 FORI$-0TO!2:MOVE224 ,992- (1$*64) : DR 
AW512,992- (1$*64) : NEXT 

1480 MOVE32,96:DRAW704 ,96 

1490 FORI$-0TO!:MOVE320- (I$*96) ,160: DRA 
W32Ø+ (I$*96) ,928: NEXT: FORI $=ØTO1 : FORJ$-0 
TO1 :MOVE96+ (13*64) + (J$*480) ,96:DRAW96+ (I 
$*64) + (7$*480) , 160: NEXT: NEXT 

1500 FORI%=@TO1 sMOVE128+ (I$2*480) ,224:MO 
VE1 28+ (13*48@) ,352:GCOLØ, I $:PLOT85,64+ (I 
$*480) ,288: NEXT: FORI3=QTO1 :MOVE128+ (13*4 
89) ,224:MOVE128+ (1$*480) ,352:GCOLØ, I$: PL 
OT85,192+ (I$*480) ,288: NEXT 

1510 MOVE352,976:GCOLØ,Ø:PRINT"Ø" 

1520 D$-1:RESTORE!830 

1530 FORI$-0TO2:FORJ$-0TO2:DS-STRS (D£) : 
MOVE256+ (J$*96) ,912- (I$*64) : READE% : GCOLO 
, £3: PRINTDS :D$=D%+1 : NEXT: NEXT 

1540 FORI%=3TO1 1 :FORJ%=0TO2:DS=STRS (DÈ) 
: MOVE24Ø+ (J$*96) ,912- (I$*64) : READE% :GCOL 
Ø ,E%: PRINTDS : D8=D3+1 : NEXT : NEXT 

1550 RESTORE182Ø : FORI 3=ØTO2:MOVE48+ (13* 
64) ,14Ø:GCOLØ , 0: READBS: PRINTBS :MOVE656- ( 
I$*64) ,140: PRINTBS: NEXT 

1560 RESTORE1840:FORI$-0TO!3:MOVE80 , 896 
-= (I$*32) : GCOLØ , Ø: READC$ : PRINTCHRS (C£) : MO 
VE624,896- (I$*32) : READC%: PRINTCHRS (C£) :N 
EXT 

1570 RESTORE1850:FORI$-9TO5:MOVE144,896 
- (I$*32) : GCOL0 , Ø: READD$ : PRINTCHRS (D$) : MO 
VE560,896- (I$*32) : READD2$: PRINTCHRS (D£) :N 
EXT 

1580 ENDPROC 

1599 : 

1600 DEFPROCspin 


1610 J3=RND (3) 

1620 FORI3=1TORND (5) : FORF%=ØTO36 : Po$-PO 
INT (S$ (F$) ,C$ (F2) ) : GCOLØ , 3:MOVES$ (F%) ,C% 
(F$) :VDU255:SOUNDØ, 1 ,6, I :GCOLØ, Po%:MOVES 
3 (F$) ,C$ (F$) : VDU255 : NEXT : NEXT 

1630 FORI$-1TOJ$:FORF$-0TO36:POo$2-POINT ( 
S$ (F$) ,C$ (F$) ) : GCOLØ , 3: MOVESS$ (F3) ,C$ (F2) 
:VDU255:SOUND@,1,6,1:TIME=0: REPEAT: UNTIL 
TIME=1%"2:GCOLØ, PO% :MOVES$ (F3) ,C$ (F2) : VD 
U255:NEXT:NEXT 

1640 C%=-2:RESTORE187@: REPEAT: READH3:C% 
=C%+1 : UNTILH%=N% 

1650 FORF$=ØTOC%:P0%=POINT (S$ (F$) ,C% (F$ 
) ) :GCOL0 ,3:MOVES$ (F%) ,C% (F3) : VDU255: SOUN 
D0,1,6,1:TIME-0:REPEAT:UNTILTIME-I2^2:GC 
OLØ , Po$: MOVES$ (F3) ,C$ (F3) : VDU255: NEXT 

1660 GCOLØ , 3: MOVES$ (F3) ,C$ (F3) :VDU255 
1678 ENDPROC 
1680 : 

1690 DEFPROCball 
1700 PROCspin 
1710 IFN$»O0ORN$-0ANDZ$-0GOTO! 760 
1720 N%=N1% 

1730 MOVE835,1ØØ:PRINT"PRESS SPACE TO": 
MOVE935,65: PRINT"RESPIN": REPEAT: UNTILGET 
=32 :GCOLØ , 2: MOVES$ (F%) ,C% (F$) :VDU255 

1748 VDU28,26,31,39,28:VDU4:CLS:VDU5 
1750 PROCspin 
1760 PROCwinlose:ENDPROC 
1770 : 

1780 DEFPROCwinlose 
1796 IFX3>K%MOVE85Ø, 9ØØ : PRINT "YOU HAVE 
LOST" :MOVE950 , 850: PRINT"£"; X$-K$:SOUNDI , 
4,2Ø,1Ø:SOUND1 ,4,5,2Ø:ELSE MOVE900,900:P 
RINT "YOU HAVE WON":MOVE95Ø,85Ø:PRINT"£"; 
K%-X%:SOUND1 ,4, 95,2: SOUND ,4,115, 2: SOUND 
1,4,130,2:S0UND1,4,150,30 
1800 MOVE835,1ØØ:PRINT"PRESS SPACE TO": 
MOVE935 ,65: PRINT"CONTINUE":REPEAT:UNTILI 
NKEY (1) 232: ENDPROC 


1810 : 

1820 DATA P,M,D 

1830 DATA 1,0,1,0,1,0,1,0,1,0,0,1,0,1,0 
7:1,9,1,1,0,1,0,1,0,1,0,1,0,0,1,0,1,0,1,0 


, 

1840 DATA 49,49,57,32,32,220,220,32,32, 
49,51,56,54,32,32,32,32,73,80,77,65,80,7 
3,65,82,73,32,82 

1850 DATA 8Ø,77,65,65,83,78,83,81,69,85 
,32,69 

1869 DATA SINGLE NUMBER,TWO NUMBERS , HOR 
IZ. ROW,SQUARE, TWO ROWS , COLUMN , DOZEN , TWO 

DOZEN , HIGH/LOW, EVEN/ODD, BLACK/RED , SEE W 
HEEL,SPIN BALL 

1870 DATA 32,15,19,4,21,2,25,17,34,6,27 
,13,36,11,30,8,23,10,5,24,16,33,1,20,14, 
31,9,22,18,29,7,28,12,35,3,26,0 

1880 : 

1890 DEFPROClist 

1900 VDU28,23,31,39,0:VDU4:CLS 
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1918 COLOUR2:PRINTTAB (2,0) ; "CHOOSE YOUR 
BET" :COLOUR1 : PRINTTAB (1,2) ; "KEY BET" 
1920 COLOUR3:FORI%=1T013:PRINTTAB (1 mé: 
3)CHRS (13+64) : NEXT 
1938 RESTORE1860:FORI$-1TOl3:READG$:PRI 
NTTAB (4,13+3) ;GS:NEXT 
1949 PRINTTAB (1,20) ; "Money remaining 
£ ";Q% 
1950 ENDPROC 
1960 : 
1970 DEFPROCmenu:PROClist 
1980 IFQ$-ÜENDPROC 
1990 REPEAT:AZ-GET-64:UNTILA$»0ANDA£«14 
2000 CLS:COLOURI 
2010 ON A% GOSUB22Ø,29Ø,41Ø,56Ø,65Ø,71Ø 
,7170,830,900,1010,1120,1230,2030 
2020 IFSpin$-1ENDPROC ELSEGOTO!980 
2030 Spin$-1:RETURN 
2040 : 
2050 DEFPROCbet 
2060 VDU28,23,31,39,6:CLS 
2070 COLOUR3:REPEAT:CLS 
2080 PRINTTAB(1,13);"Money remaining 
£'":0$ 
2Ø9Ø INPUTTAB (1,1) "How much do you wan 
t to bet? £"B3: UNTILB3<1 80001 ANDOQS 
-BS>-1 
2100 ENDPROC 
2110 : 
2120 DEFPROCnumber 
2130 VDU28,23,31,39,10:CLS 
2140 REPEAT:CLS 
2150 INPUTTAB(1,1)"What is the low 


est number your bet is to cover",L% 
s UNTILL3<36 

2160 H$-0:ENDPROC 

2170. 18 


2180 DEFPROCgame 
2190 K%=5ØØ:REPEAT:Q%=K%:X%=K%:Z%=Ø 
2200 Spin$-0:N$-RND (37)-1 


| om EEE ERE EE EE n. F F P = 


2220 SOUND1,3,1ØØ,25 

2230 PROCwheel:PROCball 

2240 UNTILK2»5*10^60RK$-0 

2250 ENDPROC 

2260 : 

2270 DEFPROCG 

2280 IFZ%=1ENDPROC 

2290 N1%=RND (37)-1 

2300 IFNl$-0K$-K$-B$:0$-Q$-B$:PROClist 
2318 Z%=1 

2320 ENDPROC 

2330 : 

2340 DEFPROCwin (W) 

2350 IFH%=1K%=K%+(W*B%) ELSEK%=K%-B% 
2360 PROClist:ENDPROC 

2370 : 

2380 DEFPROCsetup 

2390 VDU23,255,48,120,252,252,120,48,0; 
2400 VDU23,220,16,8,0,60,6,62,102,62 
2410 ENVELOPEl,1,8,Q,8,6,3,3,127,-5,-5, 
-5,100,60 

2420 ENVELOPE2,2,6,0,0,255,0,0,126,0,0, 
-126,126,126 

2430 ENVELOPE3,5,16,12,8,2,1,1,10,-10,0 
,-10,200,100 

2440 ENVELOPE4,3,0,0,0,0,0,0,127,-10,-5 
,-2,120,120 

2450 PRINTTAB (8,11) "PLEASE WAIT A FEW S 
ECONDS" 

2460 DIMS% (36) ,C$ (36) ,S1% (36) ,C1$ (36) ,S 
2$ (36) ,C2$ (36) 

2470 F$-0:FORA-0TO360STEP360/37 

2480 FORA-0TO360STEP360/37 

2490 S% (F$)-370*SIN (RAD (A*5) )+484:513(F 
$) =5ØØ*SIN (RAD (A) ) +500:S2% (F2) =460*SIN (R 
AD (A*5) ) +473 

2500 C$ (F$)-370*COS (RAD (A5) )+516:C13 (F 
$) =5ØØ*COS (RAD (A) ) +500:C2% (F$) -460*COS (R 
AD (A44) ) £515 

2510 FS=F%+1 :NEXT 


2210 PROCtable: PROCmenu 2520 ENDPROC s] 
LOCAL POINTS OF INTEREST 


The keyword LOCAL, followed by one or more variable names, inside a procedure will 
create local versions of those variables, only accessible inside that procedure. 
However, if another procedure is called from within the first procedure then the local 
definitions are good for that second procedure too. 


TROUBLE WITH *FX3 - Martin Abernethy 

If *FX3,8 is used to select output stream to a printer then VDUl should not be used 
to send control codes to the printer as all the l's are sent as well. If, after a 
*FX3,8, VDU2 (or Ctrl-B) is also used to enable the printer then a VDUl not only sends 
the 1 but the following code twice! 


QUICK RANDOM - Roger Burg 


RND(X) is comparatively slow in BBC Basic. About twice the speed is the pseudo 
random function TIME MOD X. 


Beebug October 1985 49 


BEEBUG MAGAZINE is produced 
by BEEBUG Publications Ltd. 
Editor: Mike Williams 
Assistant Editor: Geoff Bains 
Production Editor: Phyllida Vanstone 
Technical Assistant: Alan Webster 
Secretary: Debbie Sinfield 
Managing Editor: Lee Calcraft 
Additional thanks are due to 
Sheridan Williams, Adrian Calcraft, 
John Yale and Tim Powys-Lybbe. 
All rights reserved. No part of this 
publication may be reproduced 
without prior written permission of 
the Publisher. The Publisher cannot 
accept any responsibility, whatso- 
ever for errors in articles, programs, 
or advertisements published. The 
opinions expressed on the pages of 
this journal are those of the authors 
and do not necessarily represent 
those of the Publisher, BEEBUG 
Publications Limited. 
BEEBUG Publications Ltd (c) 1985 
Editorial Address 
BEEBUG 
PO BOX 50, 
Hollywell Hill, 
St. Albans AL1 1EX 
CONTRIBUTING TO BEEBUG 
PROGRAMS AND ARTICLES 


We are always seeking good quality 
articles and programs for publica- 
tion in BEEBUG. All contributions 
used are paid for at up to £40 per 
page, but please give us warning of 
anything substantial that you 
intend to write. A leaflet, ‘Notes 
of Guidance for Contributors’ is 
available on receipt of an A5 (or 
larger) SAE. 

In the case of material longer than 
a page, we would prefer this to be 
submitted on cassette or disc in 


machine readable form using 
"Wordwise", "View", or other 
means, but please ensure an 


adequate written description of 
your contribution is also included. 
If you use cassette, please include a 
backup copy at 300 baud. 


HINTS 


There are prizes of £5 and £10 for 
the best hints each month, plus one 
of £15 for a hint or tip deemed to 
be exceptionally good. 


Please send all editorial material to 
the editorial address below. If you 
require a reply it is essential to 
quote your membership number 
and enclose an SAE. 


SUBSCRIPTIONS 


Send all applications for membership, subscription renewals, subscription 
queries and orders for back issues to the subscriptions address. 


MEMBERSHIP SUBSCRIPTION RATES 


£ 6.40 6 months (5 issues) UK ONLY 
£11.90 UK - 1 year (10 issues) 

£18 Europe, 

£23 Americas & Africa, 


BACK ISSUES 
(Members only) 


£21 Middle East 
£25 Elsewhere 


Volume sets 
(10 issues) 


Single 
issues 


90p 
£1 
£1.20 
£1.20 


Please add the cost of post and packing as shown: 
Each 


subsequent 
issue 


First 
DESTINATION issue 
30p 


UK 


Europe 
Elsewhere 


All overseas items are sent airmail (please send a sterling cheque). We will 
accept official UK orders but please note that there will be a £1 handling 
charge for orders under £10 that require an invoice. Note that there is no 
VAT on magazines. 


Back issues are for members only, so it is ESSENTIAL to quote your 
membership number with your order. Please note that the BEEBUG 
Reference Card and BEEBUG supplements are not supplied with back 
issues. 


Subscriptions, Back Issues & 
Software Address 


BEEBUG 
PO BOX 109 
St. Johns Road 
High Wycombe HP10 8NP 


Hotline for queries and software orders 


St. Albans (0727) 40303 
Manned Mon-Fri 9am-4.30pm 


24hr Answerphone Service for Access and 
Barclaycard orders, and subscriptions 
Penn (049481) 6666 


If you require members’ discount on software it is essential to quote 
your membership number and claim the discount when ordering. 


YNAMIC DI 


TESTED BY BEEBUG 


Orders for 
10 discs are 
sent in 

black plastic 
library cases. 


Orders for 
50 are 
delivered 
in strong 
plastic 
Storage 
box 

with 4 dividers. 


We regret that we have 
had to pass on a slight 
increase in the price of 
our discs, but we are 


now able to offer a wider 
range to meet your exact 
requirements. 


These discs are the best. 
Please use the enclosed 
order form and order 
from our usual address. 
BEEBUG PO BOX 109 

St. Johns Road 

High Wycombe HP 10 8NP. 


disc manufacturers, 


Orders for 
25 are 
delivered 
in strong | 


plastic 
Storage 


box > p 
with 4 dividers. Á 


D/D £20.50 


25 p/s D/D £46.20 


á t 10 D/s D/D £2 
m /D £46.20 25 D/S pj ge 
S/S D/D £8240 50 ens m 


D/S D/ 


Suitable f, Nika 
including At BBC Micro and 


tari and Commo, 


è all other computers using 
ully Guaranteed - | 


Bl 
dore, 5i inch discs 


Official orders are 
welcome. 


Barclaycard and Access 
telephone 0494 81 6666 
Further information 
telephone 0727 60263 


Magazine Cassette/Disc 


OCTOBER 1985 CASSETTE 


DISC CONTENTS 


RECURSIVE TREES — displays for the armchair gardener 
DYNAMIC MEMORY WINDOW — an eye into your Beeb as 
it runs your programs 

WORDWISE PLUS EXAMPLES — segment programs from 
the series 

LOAN REPAYMENT — calculate how much you owe 
EPROM PROGRAMMER DRIVER — blow your own 
WORKSHOP PROCEDURES — text compression 

DISC MENU EXTENSIONS — the complete disc menu 
program with all the extensions 

DATA STRUCTURES — linked lists and binary trees 


ROULETTE — spin the wheel and break the bank š » 
EXTRA FEATURES THIS MONTH 31 13 
DISC BENCHMARKS — test out your drives with the EA = 
program used for the DDFS review Y . se 

3D GRAPHICS SYSTEM DEMO — a fast moving display 16245 1922 


from Glentop's graphics package 


By Alan Webster and Geoff Bains 


Eprom Size=16K 
Eprom Not Blank 


Alan's silly ROM 


Verify Eprom Against File 
- Quit 


- 0.8 Command 


Please Enter Your Choice 


All this for £3.00 (cass) £4.75 (disc) +50p p&p. 
Back issues (disc since Vol. 3 No. 1, cass since Vol. 1 No. 10) available at the 


same prices. 
Subscription rates DISC CASS DISC CASS 
UK UK OSSES O'seas 
6 months (5 issues) £25 £17 £30 £20 
12 months (10 issues) £50 £33 $50. > £39 


Prices are inclusive of VAT and postage as applicable. Sterling only please. 


Cassette subscriptions can be commuted to disc subscription on receipt of 
£1.70 per issue of the subscription left to run. 


All subscription and individual orders to 
BEEBUG, PO BOX 109, St. Johns Road, High Wycombe HP10 8NP 


Printed in England. DCL 10532 


E 
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BEEBUG SUPPLEMENT 


We offer a full service for members who wish to upgrade their Beebugsoft products from 
cassette to disc, disc to Rom etc., or to the latest version (e.g. Masterfile | to Masterfile ll). 
To take advantage of this service please return your original program along with your 
order and remittance, deducting the following amounts from the price. (The amounts 
shown should be deducted from the full price, before calculating members discount). 
Send all orders to the usual High Wycombe address. 


Product Discount 
e Masterfile | (disc) to Masterfile II (disc) £9.50 
€ Masterfile | (cass) to Masterfile il (disc) £5.00 
€ Exmon I (cass) to Exmon Il (Rom) £5.00 
e Exmon I (Rom) to Exmon Il (Rom) £13.50 
e Sleuth (Rom) to Sleuth 1.06 (Rom) *[see below] £19.00 
e Spellcheck | (disc) to Spellcheck II (Rom + disc) £9.50 
e Paintbox (disc) to Paintmaster [Paintbox II] (disc) £6.00 
e Paintbox (cass) to Paintmaster [Paintbox II] (disc) £5.00 
e Design (cass) to Design (disc) £5.00 
e Dumpmaster (cass) to Dumpmaster (disc) £5.00 
e Hershey Characters (cass) to Hershey Characters (disc) £5.00 
€ Quickcalc (cass) to Quickcalc (disc) £6.50 
e Sprites (cass) to Sprites (disc) £5.00 
e Starter Pack (cass) to Starter Pack (disc) £6.50 
e Teletext (cass) to Teletext (disc) £5.00 


| - An Enhanced Version 


The. Sleuth “parade is oko owners oF versions prior to 1.06 whe Wish to pus the 
enhanced Sleuth which now also features: 


1. The ability to enter Sleuth directly from any stage of your own program. 
e.g. IFD% = 10 THEN*SLEUTH or ON ERROR *SLEUTH. 

2. The new command ‘OUT’ to exit Sleuth and continue running your program from the 
current line. 


3. Dual screen workspace located in sideways Ram. BE E n " E 


4. Variable update now includes arrays. 
5. . Aries B-20 and Watford 32k Ramcard compatibility. E E 


*See above for details on how to upgrade to the new Sleuth. 


THE WORDWISE PLUS UTILITIES DISC 


WORDWISE PLUS IS A WORDPROCESSOR WITH 
GREAT POTENTIAL — FULFIL THAT POTENTIAL WITH 
WORDEASE. 

WORDEASE CONTAINS A HOST OF UTILITIES ALLOWING 
YOU TO STREAMLINE WORDPROCESSING WITH 
WORDWISE PLUS. MORE THAN THIS IT PROVIDES A 


araLHIAMIMDOWD 


UORDERSE 


CC) Beebugsoft 1985 Free: 
K: 21465 

Auto-Version. Save $ 600 
“Basic Status 

Copy Segment to Segment 

Disc Menu 

Edit Text^Segnent 

Function: Key Displa 

Gen Utils (StripeRenumber/Align> 
Hardcopy Codes 

Individual Symbols. 

Standard Page Handle 

Program Utils (Ana lgse/Compact > 
Label Printer 

Mail Merge 


Text= TxTname 
Seg8- Empty 


EXIT to Text 


@ Change Drives Util=0 Other=1 


Select Option 


AUTOMATICALLY SAVES YOUR TEXT WITH SELF- 
INCREMENTING VERSION NUMBER. 


REPORTS ON THE STATUS OF EACH SEGMENT, 
SHOWING CONTENTS AND MEMORY USAGE. 


COPY A FILE FROM SEGMENT TO SEGMENT, 
ALLOWING ‘OVERWRITE’, ‘TO CURSOR’ OR 
‘MARKED SECTION ONLY’. 


AUTOMATICALLY READS DISC TO PROVIDE A 
DETAILED MENU OF YOUR FILES. PRESS A KEY 
TO LOAD FILE OF YOUR CHOICE. 


TEXT EDITING AID — GIVES A WINDOW ONTO 
TEXT AREA WITH INSTANT SEARCH AND 
REPLACE OPTIONS. 


NUMBER OF SPECIAL APPLICATIONS — SUCH AS MAIL 
MERGING AND LABEL PRINTING, IN ADDITION TO 
PROGRAMMING UTILITIES, SUCH AS THE VARIABLE 
LISTER AND POWERFUL COMPACTING ROUTINES, WHICH 
SQUASH REMS, SPACES, LABELS AND KEYWORDS. 
SUPPLIED ON A DUAL 40/80 TRACK DISC. 


DISPLAY AND EDIT THE CONTENTS OF THE 
FUNCTION KEYS. 


A SET OF GENERAL UTILITIES INCLUDING AN 
EMBEDDED COMMAND REMOVER, AN INDENT 
FACILITY, A SECTION RENUMBERING ROUTINE 
AND AN ALPHA SORT. 


AUTOMATICALLY ADD PRINTER CODES TO 
YOUR TEXT AT THE PRESS OF A KEY: 
UNDERLINE, ENLARGE, CONDENSE, ETC. 


PREDEFINED SYMBOLS (ARROWS, COPYRIGHT, 
SCISSORS ETC.) AUTOMATICALLY ADDED TO 
YOUR TEXT. 


AUTOMATICALLY MAINTAIN AND LOAD A 
LIBRARY OF STANDARD PAGE SETTING OR 
LETTERS. 


PROGRAMMING UTILITIES (FOR WORDWISE 
PLUS PROGRAMMERS) INCLUDING PROGRAM 
SQUASHER, VARIABLES DISPLAY AND 
PROGRAM DE-CRUNCHER. 


FLEXIBLE AND EASY TO USE MULTI-FORMAT 
LABEL PRINTER. 


POWERFUL MAIL MERGE ROUTINES FOR 
SENDING PERSONALISED STANDARD 
LETTERS. 


WORDEASE FROM BEEBUGSOFT — £21.50 inc. VAT and POSTAGE 


Please send me .......... WordEase @ £21.50 


Debit my Access/Barclaycard with £ 


Name 


No. 


| 


BEED 


Address 


Telephone credit card orders 0494 816666 24hrs. 
Telephone for further information 0727 40303. 
BEEBUGSOFT, PO Box 109, High Wycombe, Bucks. HP10 8NP 


så 


MEMOREX DISCS 
FROM BEEBUGSOFT _ 


Memorex discs are extremely 
reliable and ideal for use with 
the BBC Micro. They have 
performed well in use at 
Beebug and we are pleased 
to recommend them and offer 
them at a reduced price. 


3481 — “Memorex 5.25 inch single sided, soft 3501 — Memorex 5.25 inch double sided, soft’, 

E sectored, double density, 48 tpi disc; with hub sectored, double density, 96 tpi disc, with. hub. 
Ting. Suitable for 35 or 40 track systems. ring: Suitable for 77 or 80 track systems. ` 
BOX OF 10 — save £9.31. Normal price £24.81. BOX OF 10 — save £16.01. Normal price £41 51. 
| Members Price £15.50. Members Price £25.50. 


Prices include VAT but not postage. Please add £0.60 for the first box and £0.40 for each subsequent box. 
Overseas orders (including Eire): Calculate U.K. price, including postage, then deduct 1596 VAT and add £2.00 per box. 
Please send a cheque with order and membership number to, BEEBUGSOFT, PO Box 109, High Wycombe, Bucks HP10 8NP 


ATPL’s SIDEWAYS ROM EXPANSION BOARD ` 
- Normal Price £44.70 Members Price £39.00 


@ Simply plugs into the BBC Micro Fr 
@ No soldering necessary Asle 
Ø Increases the sideways ROM capacity E å 
to 16 Sideways RAM Chips 
8 Fully buffered - allows all sockets 8K 6264 LP-15 
to be used are now available at £7.50 


@ Complete with full and detailed 
instruction booklet inc. VAT from BEEBUG 


& Accepts 16K RAM in special sockets Ideal for use in SIDEWISE 


@ Battery back up facility for RAM 
(parts available directly from 
ATPL at extra cost) 

@ As used at BEEBUG 

& Reviewed in BEEBUG vol. 2 number 6 


HOW TO ORDER 


Please send your order with a cheque/ postal order made payable to BEEBUG, and 
enclose your membership number. Overseas members, please send the same amount, 
this will cover the extra post but not VAT. 


The address for SIDEWAYS is: 
BEEBUGSOFT, PO Box 109, High Wycombe, Bucks. HP10 8NP 


BEEBUG 


. NEW COMPUTER CONCEPTS ROMS FRON 
 BEEBUGSOFT 


For: a full specification of all the ROMS please send A5 SAE to th e address below. | 
Mark your envelope “ROM SPEC” . : 


NEW INTER-CHART 

THE CHART & GRAPH 
PLOTTING ROM 

This ROM-LINK compatible pro- 
gram allows practically any data 
to be presented in graphic form. 
Three basic types of graph are 
supported—the pie chart, bar 
graph and line graph. 
INTER-CHART is especially 
tailored to INTER-SHEET and so 
can very easily use spreadsheet 
data for plotting charts and 
graphs. RRP £36.80 

Members price £29.90 

DISC DOCTOR — The general 
utility Rom for disc users. 

RRP £33.35 

Members Price £29.00 

INTER SHEET — A spreadsheet 
Rom allowing 40,80 or 105 column 
screen display and compatible 


with Wordwise/View. The first of 
a ‘Rom-Link’ suite of products 
which will integrate together allow- 
ing data to be passed from one 
program to another. RRP £56.35 
Members Price £52.35 
PRINTMASTER — for Epson 
and Star printers — Allows easy 
access to your printers special 
features. Specify Epson or Star 
version. RRP £33.35 

Members Price £29.00 
WORDWISE — The orginal 8k 
wordprocessor. RRP £46.00 
Members Price £36.00 
WORDWISE PLUS — The 
improved word processor on 16k 
Eprom, incorporating its own 
pooammng language. RRP 
£56.35 

Members price £53.90 


ACCELERATOR— A ren. 
ensive 24k Rom (2 Roms) 
Compiler. Supports full floating 
point arithmetic and will compile 
most Basic programs with only 
slight alterations. RRP £64.40 
Members Price £59.90 
GRAPHICS ROM — A host of 
routines for anyone interested in 
extended graphics on the BBC 
Micro. RRP £33.95 

Members Price £29.00 
SPEECH ROM — An advanced 
speech system using phonemes 
to allow any spoken word to be 
produced. This Rom requires the 
Acorn Speech processor to be 
present in your machine (A part 
of the Acorn Speech System. If 
required this chip is available at 
an extra cost of £10.) RRP 
£33.35 Members Price £31 00 


"UPGRADES from WORDWISE to WORDWISE PLUS — return your old Wordwise manual an 
Eprom by recorded delivery for upgrade. (Damaged Eproms enc. extra £5) UK sz! 85 Airmai 

“Europe £26 Elsewhere £28 

"UPGRADES TO END ON 18/10/85 — Please note that Computer Concepts will no — provid 
upgrades from Wordwise to Wordwise-Plus after 18th Oct. 1985. 


"COMPUTER CONCEPTS ROM ORDER FORI 


Please send me price 


TOTAL ENCLOSED 


| 

| 

| 

| 

| 

| 

Norr EY & masa 
| Credit Card orders may be telephoned to (0727) 40303 | sal 
| Prices include post, packing and VAT, overseas members send the same 
| 

| 

| 

| 

| 

| 

| 

| 


A 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


amount to include extra post but not VAT. Please make cheques payable to 
BEEBUGSOFT. 
Send to: “Rom Offer” Beebugsoft, PO Box 50, Holywell Hill, St. Albans, Herts. AL1 3YS | 


To avoid delay please do not send this to the High Wycombe address, please do not combine | 
orders for other BEEBUGSOFT products with this order. 


Name Membership No. 
Address | 
Access/Visa Card No. [ I | | ] | I Expiry date 


ez 
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BEEBUG 


Discounts 


BEEBUG has arranged 
discounts for members at 
a number of retail outlets 
who supply computer 

, software, 
hardware and services. 
We are continually 
negotiating further 
discounts. 


It is advisable to telephone before placing an order, to check 
availability. Members should simply quote their membership 
number with their order, though members taking discount 
will not necessarily be given credit card facilities, (you must 
check this). We are not acting for these companies, nor 
receiving payment from them, and cannot be held 


responsible for their services. 


AKHTER computer 


group, 

28/29 Burnt Mill, Harlow, 
Essex CM20 2HJ. 

Tel: 0279 443521 


5% discount to members for 
cash or cheque with order. 


ALILM Books, 

21 Beechcroft Road, 
Bushey, Herts. 

Tel: 0923 30150 


10% discount for members of 
BEEBUG and ELBUG the 
Small Computer Program 
Index and other database 
and library software. 


Appleby, Myers 
and Clarke, 

60 Market Street, 
Watford, Herts. 
Tel: 0923 31960 


Free postage on books. 


ANC Software, 
PO Box 415, Harborne, 
Birmingham B17 9TT 


25% off Learning with the 
Beeb’, and ‘Learning with the 
Elk’ discount price: £1.50 for 
BEEBUG and ELBUG. 


BEEBUG 


Calancraft Lid., 

134a St. John’s Road, 
Woking, Surrey GU21 1PS 
Tel: 0932 65284 


From 5% to 15% on 
microcomputer equipment, 
workstations, disc drive 
cases & PSU’s and software. 


Computer Holidays, 
37 University Road, 
Highfield, Southampton 
Tel: 0703 558621 


£5 discount for BEEBUG 
and ELBUG. 


Danum Computer 
Systems, 

17 East Laith Gate, 
Doncaster, 

S. Yorkshire DN1 1JG 
and Computer Room, 
Unit 12, Market Hall, 
Barnsley, S. Yorks. 


Discount prices on request. 


East Riding Computers, 
24 Sherbuttgate Road 
South, 

Pocklington, 

York YO4 2YB 

Tel: 07592 4387 


Discount prices to members 
on request. 


by I Birnbaum. 


K. Edward, 

54 Greyham Court, 
Dalclaverhouse, 
Dundee DD4 9DQ 


5% discount VDU Support 
Stand kits. 


fFolders, 

10 Weston Lane, 
Bridgetown, 
Totnes, Devon. 


1556 discount on function key 
labels. 


FUREY Enterprise 
Products, 

7 Manor Park, 

Froxfield, Wilts. SN8 3LF 
Tel: 0488 83006 


10% Discount. 
ae Function key booklet 


BBtype word processor — 
£23 

A Reformatter 
— £. 


Globe Book Services, 
Houndmills, 
Basingstoke, 

Hants. RG21 2XS 


10% Discount on Assembly 


Language Programming for 
the BBC Micro' 


== Q 


SUPPLEMENT 


MUSIC COMPETITION RESULTS 


The music competition of BEEBUG Vol.4 No.2 brought in so big a response that we 
only just managed to listen to all the entries in time to announce the results this 
month. The standard of all the entries was very high and a great number of you had 
obviously worked long into several nights[^ 
to complete your programs. The task of thef ` 
competition was to write a Basic program] ` 
to reproduce a piece of music, making the 
most of the four channels and envelopes i 
that the BBC micro provides. 


Some staggering entries appeared at 
the BEEBUG office but when it arrived it 
was obvious to all that the winner was to 
be Nigel Hambly's version of Strauss's 
Blue Danube. This epic work (the program 
and data is in several parts taking up 
about 88K of disc space!) plays an 
accurate rendition of this famous waltz 
and even includes some excellent graphics. § . = 
The first prize of an ATPL Symphony keyboard, BEEBUGSOFT Murom and Ian Waugh's book 
will soon be on their way to Mr. Hambly. 


Second prize (and only just pipped at the post) goes to Melvyn Wright for his 
'music machine' that plays Blaze Away March by Holzmann. The music machine is a 
fairground organ with all the necessary instruments recreated. One highly novel and 
ingenious trick used in this program is to switch the cassette motor relay on and off 
as a rhythm track! A copy of Murom and Ian Waugh's book go to Mr. Wright. 


New High Scores 
BEEBUG 


BEEBUG MAG 


Cosmonaut R.Koten 


BEEBUG MAG Truffle Hunt R.Koten 
FIREBIRD Duck E.Denning 
H SOFT Penguin J.Dowling 
MICRO POWER Castle Quest S.Rawnsley 
PSION Saloon Sally R.Koten 


SUPERIOR SOFT | Jack & Beanstalk R.Koten 


Compec "85 Olympia, London 12-15 Nov 


Micro User Horticultural Halls 14-17 Nov 
Westminster 


Barbican Centre 


Computers in 
Education 


BEEBUG SUPPLEMENT 


Hermes Computer 
Products, 

23 Durnford Close, 

Norden, Rochdale OL12 7RX 


10% discount + free p.&p. on 
a graphics design pad. 


Enfomania, 

Carey e Watford, 
Herts. WD1 

Tel: 0923 55122 


15% discount on-courses to 
BEEBUG members. Also 
discount membership to 
their club. 


ITM Ltd., 

E3 New Enterprises, 
S.W. Brunswick Dock, 
Liverpool L3 4AR 


Rotaview Professional 
videotext system. Usually 
£70 + VAT + pp. Now with 
£5 discount. 


ngsley TV Services, 
pr Es ields Road, 
Newcastle Upon "Tyn e 
Tel: 0632 650653 


£10 discount off their range 
of Monitors and TV/ 
Monitors. 


Microage, 
135 Hale Lane, 
Edgware, Middx. HA8 9QP 


5% discount off some disc 
drives. 


Microguides, 

St. James House, 
105-113 Broadway, 
London W13 9BL 


10% discount for f3 or more 
of their keyboard overlays. 


Microtest Ltd., 

18 Normandy Way, Bodmin, 
Cornwall PL31 TEX 

Tel: 0208 3171 


10% discount on Software, 
and 5% discount on 
Hardware. 


Microware, 
637 Holloway Road, 
London N19 


10% discount on DDFS. 
Other discount prices as 
shown in Microware advert. 


Opus Supplies, 
158 Camberwell Road, 
London SE5 OEE 


20% discount for members 
on business desk only. 


Oxford Computer 
Supplies, 

PO Box 133, 

Oxford OX4 3NB 
Tel: 0865 716137 


7.5% discount on discs, 
printer paper & word- 
processing paper. 


Micro Computer World, 
1 Lane Close, London 
NW2 6QZ 

Tel: 01-452 0893 

Write for free list. 


Discount on Software for 
BBC & Electron. Discount 
on Hardware Joysticks and 
Accessories. 


Micro Supplies. 
Oxford House, Faldouet, 
St. Martin, Jersey, C.I. 
Tel: 0534 55743 


5% discount on diskettes. 


Mine of Information, 
(Mail Order), 

1 Francis Avenue, 

St. Albans, 

Herts. AL3 6BL 

Tel: 0727 52801 


Computer Books 5% 
discount. 


Off Records, 
Computer House, 
58 Battersea Rise, 
Clapham Junction, 
London SW11 1HH 


25% off diskette purchases. 


PM. Communications, 
47 Wickentree Lane, 
Failsworth, 

Manchester M35 9AY 

Tel: 061 688 7444 


Large discounts on disc 
drives, diskettes, and power 
supplies. 


Shimecrest, 

Unit 14, Dicker Mill, 
Hertford, Herts. SG13 7AE 
Tel: 0992 51977 


10% off their home computer 
work station to ELBUG and 
BEEBUG members. 


Simonsoft, 
25 Tatham Road, Abingdon, 
Oxon. OX14 1QB 


5% to members of BEEBUG 
on Sprites v.2, Superfruit, 
Castaway. 5% to members of 
ELBUG Sprites v.2, 
Superfruit. 


A. Spencer, 
74 Dovers Park, 
Bathford, 

Bath BA1 7UE 


25% to members for Journal 
Indexing System and 
Objective Test System. 


—»]0 
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> Addictive launch BOFFIN < 
— A Mad Professoron the Loose 


Boffin is a challenging, action-packed game requiring a combination of 
cunning and slick keyboard control. Beware the Giant Puffer -Blimps in your 
way and give the massive Tarantulas a wide berth! Land on the giant 
hydraulic rams and they wili slam you into deadly neutron magnets embedded in 
the cave roof! Manta-bats are useful allies and the trampolines will help you gain 
height — but remember to use your umbrella to break a deadly fall! 
Available BBC B and Electron ... ..£995 


LSO AVAILABLE 


STRINGER FOOTBALL MANAGER 

Stringer is an arcade adventure 7 The All Time Classic 

game in which you are a press Football Manager... Spectrum 48K 
photographer set the task of š £8.95 . . . Commodore 64 £895 . . 
snatching a shot of a Film Star in å Amstrad CPC 464 £8.95... BBC B 
an hotel. The game is tantalisingly å £8.95 ... Electron £8.95... Dragon 
playable, graphically excellent and, £795 . . . Vic 20 £795... ZX81 £795. 
of course — Addictive! 

Available . . . £8.95. 


To: Addictive Games Ltd. 7a Richmond Hill. Bournemouth. Dorset BH2 6HE 
sem ma amam a atum umu Gmm “ma uma m “sm tus OCA 
r Please send me: ^3 


L cassette(s) for Boffin for... - (computer) 
í L.J cassette(s) for Stringer for... .(computer) i 
LJ cassette(s) of Football Manager for. .(Computer) 
tenclose cheque/postal order for" £ 

Please debit my Access card No. .. 


"Delete as applicable 


Postcode .. . Te 
we GLAD emma ee ee UEM 
Access orders can be telephoned through on (02021 296404 


For overseas orders, please add £1.50. 


e Addictive Games © 
7a Richmond Hill, Bournemouth BH2 6HE 
Telephone: 0202 - 296404. 


Woking. .— 

Tel: 04862 62020 ` 

Juki 6100 daisywheel i 
Model 6100. Brand new, diy 


guaranteed, free delive UK 
mna d inc. VA Ü 


PROMICRO 
16K SIDEWAYS RAM PACK 


for BBC micro 


ONLY £29.50 


(incl. VAT, p & p) 


€ Loads ROM software from disc e Onceloaded behaves as a ROM 
e Load ROMs as required €. Avoid command conflict 

€ Neatself-contained module e Plugs directly into a ROM socket 
e Simple to fit € One clip-on wire € No soldering 

€ Eliminates multiple ROM boards e ;No board so no excessive current 


e Will not interfere electronically with other peripheral devices 
e Full instructions including utility software 


THE CHEAPEST AND THE NEATEST 
PLUG IN - CLIP ON — AND GO 


from PROMICRO, Dept. BB, 6 St. Georges Road, Ilford, Essex IG1 3PQ. 
RES POA S EAEE TT TEE EEEE RN UT TMIIUKITUNDE E INNO ET TSS 
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Classified Ads 


Rates are 15p per word for members' personal ads. Members' business ads cost 25p 
per word - and if you are selling any item in quantities rather than one-off, then 


that counts as business. 
ad. In either case 


From Ist May 1985 you must add 15$ VAT to the cost of your 
send cheque with order to PERSONAL ADS, PO BOX 50, ST ALBANS, 


HERTS. It is essential to include your membership number. Please note that we cannot 
arrange for box numbers. 


Nutcrackers: 
Disc 2 Tape and Disc 2 Disc: 
The best and cheapest package 
available. 'How to move your s/w to 
disc'. Extensive text with hints and 
suggestions * cassette with 9 programs 
to heip you: £5.- Nutcracker * Howto 
together £9. We sell many other 
utilities: SAE. Note BBC only (sorry!). 
R-SOFT, 22 Marriotts Close, Felmersham 
MK43 7HD, Beds, Tel: 9234 781739. 


Tape 2 Tape, Tape 2 Disc, 
Only £51 


'D-Master', the most powerful disc 
analyser and backup program. You need 
either an Acorn DFS or DNFS, or Watford 
DES 1.3 onwards, It is better than 
other programs selling for more than 
£1Ø-£151 Price: £7.00; for nutcracker 
owners: £3, R-Soft, 22 Marriotts Close, 
Felmersham, Beds MK43 7HD. Phone 
(0234) 781730. 


CP/M user group(s) disc libraries, 400+ 
volumes with 8464+ items £1.50 / vol., 
Acorn 280, Torch and other formats. 
Also format translation service. SAE or 
phone. R.Smith, 138 Holtye Road, East 
Grinstead, Sussex  RHI9 3EA. (0342) 
313883. 


MARKS AND STATISTICS for teachers and 
lecturers. Revolutionizes the handling 
of marks. Simple to use spreadsheet 
format. 330 students per file. Up to 
309 subjects. Sorts, analyses, 
normalizes, calculates means, applies 
weighting factors. Prints histograms 
and lists. Model B. 0.8.1.2. Full 
documentation. Disc (40 or 88 track) 
Y16. In-Form, 73 Woodfield Park, 
Colinton, Edinburgh EH13 @RA. 


Sanyo DM8112CX monitor. 12 inch Hi-res 
monochrome. 6 months old. £55 ono. 
Dover 849685. 


List in colour in Mode 7. Coloured line 
numbers, 19 definable strings. £6 
Cassette, £7 disc. PAJ Taylor, 23 Limes 
Ave., Alfreton, Derbys. DE5 7DW. 


Wanted. Phloopy cartridges. Thomas, 25 
Wykewane, Malvern, Worcs. (86845) 
63480. Evenings. 


CP/M user group(s) disc libraries, 400+ 
volumes with 80004 items £1.50 / vol., 
Acorn 289, Torch and other formats. 
Also format translation service. SAE or 
phone. R.Smith, 138 Holtye Road, East 
Grinstead, Sussex RHI9 3EA. (0342) 
313883. 


Acorn DFS inc.8271 plus Cumana 46 track 
Single sided 00k full height drive 
£150. Phone 0788-2859 Evenings. 


SALE! One only each item, most in 
original packaging: DISCS: Acheton 
(2-disc adv) £14; Magic Mushrooms £8; 
Swag £6;  Mr-Ee £7; Beebugsoft's 
Paintbox £10; Watford's Disc Executor 


(T-D) £6; Disc-Data (Database) £12; 
Debug / Copy-all £6. View PDG £19; 
Watford | FX-80 PD £6. Cassettes: 


Hunchback; Sealord; Galaxy Wars; Graphs 
and Charts; Early Learning; £2 each. 
Fortress; Frak!; Franklin's Tomb (adv); 
£3 each. ROMs: View 2.1 £32; ADE v1.@ 
£30; STARdataBASE ` £50; Printmaster 
(Epson / Kaga) £18. Also: Watford MK2 


ROM board £20; UDM DDFS 2.0 £50. Phone 
Ø843-291167 after 6pm. 
Wordwise Plus, as new £33. Quickcalc 


(disc) £7, Vu-Calc £5. G.Brown. Tel. 
981-341-2187 (evenings). 


Convert your 8@ track 5.25" drive to 
40/80 switchable. Simply plug existing 
drive cable into small box provided, 
and supplied cable into your BBC. No 
soldering, drilling etc. Guaranteed. 
£18 includes p&p. Magus Electronics, 33 
Pool Lane, Winterley, Sandbach, 
Cheshire. 


BBC Graphics planning sheets. A4 pads 
of 80 sheets £1.99 plus 5øp pence p&p 
each to YES, 2 Fleckney Rd., Kilby, 
Leicester LES ITB. Send SAE for sample. 


Printmaster ROM £20.00. Computer Books 


(Cryer on graphics and Latham on disc 
drives £3 each) inc. postage. Ring 
Cardiff 48 56 84, 

Listings-BBC, quick confidential 
service, any length, by return, £1.75 
including p&p. Send tape to JRASS 
Services, 98 Preston Lane, Tadworth, 
Surrey. 


Frustrated amateur 
‘Basic’ programming skills requires 
personal tuition, support and advice 
from an experienced Basic / Machine 
Code programmer in developing a 
specialist stockmarket analysis program 
(not for commercial use). Tel. 
G1 ~340-2646 (N.London) | evenings 


with reasonable 


Z8% second processor, complete with all 
Software, virtually unused, boxed as 
new, £275. Bedford (0234) 54374. 


BBC Model B, UDM DDFS, Microware double 
sided disc drive, Exmon, Toolkit ROMs, 
manuals inc. Advanced User Guide, many 
6502 reference books, complete set 
BEEBUG mags, box discs. £550 ono. 08045 
7292. 


Acorn Mirle business suite, 7 discs, 
new and unused. Cost £175, accept £109. 
Epson MX8@ F/T II printer, £200. Phone 
065086 4274 (Norwich). 


'D-Master', the most powerful disc 
analyser and backup program. You need 
either an Acorn DFS or DNFS, or Watford 


DFS 1.3 onwards. It is better than 
other programs selling for more than 
£1Ø-£15! Price: £7.00; for nutcracker 


owners: £3. R-Soft, 22 Marriotts Close, 
Felmersham, Beds MK43 7HD. Phone 
(8234) 781739. 


BEEBUG 
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from Datastar- 


Systems! 
| 


THE INCREDIBLE NEW STAR SG-10 
NEAR LETTER QUALITY PRINTER. 


features:— 
s< Epson and IBM compatible print codes 


s< Friction andtractor feeds. 
STA R S G 1 0 %< Externally Accessible DIP-Switches 
Ki High-resolution bit-image graphics 


Character Sets s< Downloadable character sets 


96 Standard ASCII Characters 
88 Standard international Characters 


NLQ, italics, condensed, enlarged, super & subscript styles. 


96 Italic Characters 94 High 120 CPS print speed, logic seeking. 
88 Italic international Characters 

96 NLQ Characters 24 Hex dump facility. 

88 NLQ international Characters 


Macro-instructions. 


Character Matrix 
Standard Characters: 9 dot x 11 dot 


s< Touch-sensitive control panel. 


STAR Block Graphics: 6 dot x 6 dot gí Standard parallel Centronics interface. 
IBM Block Graphics: 12 dot x 11 dot å 
User Defined: 8 dot x 4to 11 dot 24 2K print buffer — expandable to 10K 


Near Letter Quality: 17 dot x 11 dot 


KK Commodore 64 version available shortiy 
Character Fonts 


Normal (10 CPI) 


Elite (12 CPI) ; š W M eR 

Condensed (17 CPI) StarSG-10€£259 + VAT — 

NLQ (10 CPI) Parallel cable tor any Micro (max. price) ` ` 
2Spareinkribbons 

Line Spacing 1⁄4, 1⁄2 in. or 7%2 in. Standard -. 2000 sheets of continu 


Dimensions (W x D x H) 
392 x 315 x 145mm (15.4 x 12.4 x 5.7 in.) 


Number of Columns 
80, 96, 136, (40, 48, 68 Double Width) 


Print Head 9 Wires (User Replaceable) 


Post your cheques to 


Datastar Systems UK 


Unicom House, 182 Royal College Street, London NW1 9NN. Telex 295931 UNICOM G 
PERSONAL CALLERS WELCOME — We are situated by the junction of Camden Road, near the railway bridge 
MONDAY-FRIDAY 9-6 SUNDAY 10-1 EXPORT ENQUIRIES WELCOME 


Credit Card Hot Line 01-482 1711 


AS MAIN DISTRIBUTORS FOR THE STAR RANGE, WE AREABLETO OFFER EXCELLENT DEALER MARGINS : 


“YOUR PROGRAMS ALWAYS REACH 


ME BEFORE ONES ORDERED LOCALLY" 


(l. Sinclair, N:S.W., Australia) 


WE ALWAYS TRY TO SEND YOUR PROGRAMS ON THE SAME DAY WE GET YOUR ORDER, THAT'S WHY IT'S CALLED SPEEDYSOFT! All programs 
normally in stock before we advertise them! FOREIGN ORDERS WELCOME, satisfied customers in 63 countries over 3 years. UK prices include VAT: export 
prices are the same, plus p&p because of the extra work involved. Pay by sterling cheque, bank draft or postal order. Ali orders must be prepaid: we send 
your programs as soon as we get your money!. It's fastest to order by phone from any country with your VISA, EUROCARD, MASTERCARD or ACCESS. Cali 


01-846 9353, 24 hrs, 7 days a week. 
£1.00 cash (refundable) for catalogue only. 


R E D MOO N The latest adventure from the greatest! Text only 
but, as you would expect from Level 9, some 
of the best-written text around. You must use many weapons and spells as you 


collect the 9 treasures and find the Red Moon Crystal. No Sticks. (Level 9) 
Cassette £6.95 


DDD PROGRAM SUITE 5. ' 


based integration and data-file compatability between your DATABASE, 
SPREADSHEET and GRAPHICS programs. Comprehensive, indexed manuals with 
training programs and demos on disk. Works even over 2 drive surfaces. All 3 
programs fully compatible. Each can be bought separately, but you save £19.90 if 
you buy all 3 together. (Gemini.) DDD-BASE. DDD-CALC. DDD-PLOT. EACH DISK 
(40/80 track) £29.95 ALL 3 DISKS £69.95 


j UMP JET “Combines not only the challenge of coping with a 

flight simulation, but also the thrill of combat ... it's 
fairly easy to get airborne, but the rest af the mission is very challenging.” 
(C&VG) This is your chance to do what even very few pilots do, fly your own 
jump jet in combat. Good tunes, great graphics, very clear instruments, 
intelligent use of split-screens. Sticks OK. (Anirog) Cassette £9.95 Disk (State 40 
or 80 track) £11.95 


REVS “After the magnificent ELITE we now have another winner, Revs. 

Graphically, it is excellent. It feels like driving a real racing car ... 
oozes class, style and, above all, realism ... one of the best simulations ever.” 
(PCW) Sticks OK (Acornsoft) CASSETTE £14.95 DISK (40/80 track) £17.65 


MATCH DAY "Far superior to any other ... the reality of 

the whole match, with the reflection as the 
ball bounces and the quality graphics, make this a worthwhile buy.” (ZXComp) 
"Must be the definitive football game ... this one has the best graphics, 
playability and atmosphere.” (Crash) Good 3D graphics: play over many skili 
levels and time periods. Sticks OK. (Ocean) Cassette £9.95 


NEW REPLAY ROM sti nave mer... 

TRANSFER I HAVE MET ... I 
have nothing but praise to lavish upon it." (PCT) "An unusual device that 
promises to be a boon for disk-using games fans.” (Beebug) These reviews are of 
the original TAPE/DISK ROM which transfers nearly all software to disk. BUT the 
actual ROM must be present before the SAVEd software will run. So no pirates! 
TD ROM is still available at £18.00. REPLAY ROM is the new enhanced version 
which is 100% effective. Even loads a stopped screen for printing. Disk to disk 
transfers. Midplay stop-and-save. REPLAY ROM is £35.00. (To upgrade existing 
TD ROM contact Vine.) For either TD ROM or REPLAY ROM, please order by 
type no: according to your DFS: TYPE 8271 for Acorn DFS, Acorn DNFS, AMCOM 
S/D, WATFORD S/D. TYPE 1770 for OPUS DDOS 3.45 & SOLIDISK DDOS: TYPE 
2791 for Opus 3.15. (Vine) TD ROM £18.00 REPLAY ROM £35.00 


B EACH H EAD "A multi-screen arcade game that is very 

close to being perfect ... graphically it is 
astonishing ... a vast number of features.” (PCW) A whole war on one tape! At 
last the famous Commodore/Spectrum program runs on your Beeb. 6 battles 
each require a different survival strategy. 1 or 2 players. 3 skili levels. Sticks OK. 
(U.S.Gold) Cassette £9.95 


VISA 


ACCESS 


SPEEDYSOFT 


01-846 9353 (24 HRS) 


BIG FREE ILLUSTRATED CATALOGUE WITH EVERY ORDER WITH DETAILED REVIEWS, LOAD TIMES, ETC. Send 
FREE GIFT if your order from this ad comes to £30! See last paragraph. 


MOUSE GOING CHEEP! uc 

ethe best BBC 
Mouse and make your Beeb a bit like an expensive Macintosh. 6502 2nd 
processor and Wordwise/View compatible. The package includes disk, cassette, 
two manuals, ROM and Mouse. PLUS AMX ART and ICON DESIGNER. 17 special 
mouse commands. AMX ART lets you draw pictures/diagrams and print on 
Epson-compatibles. ICON DESIGNER creates icons for use in your own 
programs. (AMS) ROM/DISK PACKAGE. (State 40 or 80 track: state 5.25 or 3 inch 
disks.) Recommended price £89.95 OUR PRICE £79.95 SAVE £10.00 


REPTON “The graphics are excellent, being clear and colourful 

with smooth movement and scrolling ... the game 
provides an exciting challenge with a good balance between reward and failure 

. very playable, highly addictive and thoroughly enjoyable." (ABComp) 12 
screens of progressive difficulty, but on each screen you see only 1/16th of the 
whole playing area at once. Password feature lets you skip completed screens. 
Map helps with first 7 screens. No Stick. (Superior) Cassette £9.95 Disk (State 40 
or 80 track) £11.95 


ACCELERATOR ROM reine tor nc 886 a 
around for the BBC at 

the moment.” (Beebug 7/85) Claimed to be the most comprehensive compiler 
available for the Beeb. Compiles practically all BBC BASIC: the only one 
compatible with BBC BASIC syntax and offering full floating-point arithmetic. 
Package includes two ROMs, manual, utilities disk, quick reference card. 
(Computer Concepts) Recommended price £64.40 OUR PRICE £55.00 SAVE £9.40 
“The best music software 


BBC MUSIC SYSTEM for the. be, 


using the internal soundchip, that I have ever seen.” (Beebug) “It is difficult to 
imagine a more comprehensive musical program.” (ABComp) 76-page illustrated 
manual. But the 4-page leaflet has you watching one of the pre-recorded tunes 
play within 2 minutes. Then you start to adapt it... No Stick. (Island Logic) 2 
Cassettes £25.95 2 Disks (40/80 track) £24.95 


SHARE ANALYSER ¿“e "i, 


recommended." (Which?) Comprehensive reporting, analysis and charting 
package. All printers OK. 20,000 whole number share prices plus 320 purchase/- 
sale/dividend records per disk. Many different reports available. 20-page 
manual. No Stick. (Synergy) Cassette £17.95 Disk (State 40 or 80 track) £24.95 


WORDWISE + ROM zzy 3 

wordprocessing ROM. 
180-page manual. 56-page manual. Keystrip. Typing tutor. Example text. Example 
programs enable mailmerging, index generation. COMPATIBLE WITH EXISTING 


WORDWISE FILES and with 6502 2nd processor. (Computer Concepts) 
Recommended price £56.35 OUR PRICE £50.00 SAVE £6.35 


FREE TAPES DISKS ne: io more than e 


(excluding p&p) we will send you 2 free 15min blank data tapes or 1 free 5.25 inch 
disk. Indicate which on your order! 


EUROCARD 
MASTERCARD 


POST TO: SPEEDYSOFT (881) 

37 CHURCH ROAD, LONDON SW13 9HQ, ENGLAND. 
For CATALOGUE ONLY, send £1 cash. Refunded with your first order. 
I own a BBC 'B'/BBC 'B' PLUS. | enclose a cheque/PO payable to 
Speedysoft OR charge my VISA/ACCESS/EUROCARD/MASTERCARD 


No. ] LI | I 


Signature: Expiry Date 
Please write clearly. If we can't read it, you won't get it. 
Name: 
Address: 

Postcode: 


PHONENO: ifany, incase ofquery 


BH BES AAR [8 EN DD ES CB ELEDEL] 


Program Name Cass/Disk 


Postage & Packing UKadd 75p perorder 
Europe ADD £1.00 per program 


Outside Europe ADD £1.50 per program 


Total Order 


16 


STARdataBASE ... 


The STARdataBASE, professional database management system consists of a 16K ROM, 75K 


of extension and applications software on disc and a comprehensive manual. STARdataBASE 
was designed by a chartered electronics and software engineer to meet a defined need for a 
high specification, disc-based random access system, The database program and extension 

` eg 


software is “Menu Driven”, particularly user-friendly, quick to use, but extremely powerful and 
totally flexible. It is absolutely ideal for use in schools, clubs, colleges, small businesses and in 
the home. 


@ Menu driven throughout. 

© True random access - will locate a single record in under 2 seconds typically. 

© File size is the capacity of a single disc (double sided if applicable) — minus 5K. 

@ Maximum number of fields 69. 

& Maximum number of characters in a field 255 (subject to an overall maximum of 920 in a 

record). 

Up to 4096 records. 

Records are displayed and input on a “Card Screen" principle. Layout of fields and headings 

are built entirely by the user by "Painting" on the screen (colour can be used). 

@ Direct and rapid entry of data into all or selected fields. 

6 Search criteria include =, <>, >, <, a wildcard "anywhere in the field", and “nowhere in the 
field". 

4 Unlimited and rapid sequential searching and selecting. 

€ All or selected records can be sorted to a depth of 5 fields, each in ascending os descending 

order, using the super-fast Shell-Metzner routine. 

Instant print or display review of file, giving breakdown of record size, number of records 
possible and space used, etc. 

a Address and label printing (up to 8 across the page). 

@ Selected whole or part field-content printing with left and right justification, tabbing, and 
embedded printer contro! codes possible. Can be mixed with text for invoices and form letters 
etc. 

Can be configured for any printer (including £ character definition). 

& Continuous or paged printout with page heading and pause at each page end, with "New 

Page" prompt. 

€ Repeat printing for multiple copies. 

e Percentage and arithmetic operations to specified decimal placing. 

e Field statistics giving totals, mean and standard deviation, variance and squares. 

e 

o 


oo 


STARGataBASE............ £75.00 inc VAT 
Post & Packing .............5 £2.30 inc VAT 


Optional password lock. 
Full documented routines (in Basic) which can be spooled onto user-written tailor-made file 
management and interrogation programs. 


STARdataBASE meets and even exceeds professional standards found on large installations. It 
is unique in speed, flexibility, and ease of use. 


GCC (Cambridge) Limited 
66 High Street, Sawston, Cambridge CB2 4BG 


Telephone: Cambridge (0223) 835330/834641 ES Trade and local authority enquiries welcome. 
Telex: 81594 SAWCOM Prices correct at time of going to press. 


THE ULTIMATE BASIC PROGRAM EDITOR 


As good as Basic is it has one omission — a true program editor. BEEBED solves this by integrating into Basic a true 


full screen editor which operates directly on the program in memory with no conversion to and from the BBC Basic 
format. 


Features include:— 

* True screen scrolling up and down (fast and smooth with new lines appearing at the top and bottom of the screen). 
Insert or Overwrite character input at any point on the screen. 

Character delete to the left and right. 

Copy function to and from any point on the screen (depending on mode inserting or overwriting). 


Global or Selective search/replace, selective mode displays a section of program with the cursor on the exact spot of 
thestring found (all characters, Basic keywords, part keywords and wild cards can be used in the strings). 


Save, Insert, Move, Copy and Delete sections. All of these sections are automatically renumbered when reinserted 
to keep the program line numbers sequential. 


* Very fast partial or total renumber. 


User friendly, all controls are very easy to use, large block cursor for editing, options are menu driven with helpful 
prompts, all inputs have sensible default values and ''are all thoroughly idiot proofed"'. 


Strings for filenames, search and replace are remembered and can be used again when required. 


Easy insertion of a new line. just press return and a new line appears underneath the cursor with the new line 
number already calculated. 


Fast cursor movements, locate by line number, undo recent edits, erase to end of line, bad program recover, delete 
line and more. 


* Supplied in 8K EPROM with extensive manual and function key strip. 

Requires O.S. 1.2 and Basic I or Il. 

For further information send an SAE. CHEQUES or PO for £24.50 inclusive made payable to J & O SOFTWARE. 
J & O SOFTWARE, 19 LANCASTER RD, NORTHOLT, MIDDX, UBS 4TB. 


* 
* 
* 
* 


Elect ronequip ` 
` (Authorised BBC Micro Dealer, and Econet service centre) 


| NORDMENDE 
EE EVE ES EN = MODEMS 


14” TV/Monitor Ë | x Telemod II £69.95 inc VAT 
Ñ p e- Á Telemod Hi £174.99 inc VAT 

£199.00 inc VAT / E Á Nightingale £159.85 inc VAT 

Remote version An : i 

£229.95 inc VAT 

Offer includes 


 HGB/PBC cable 12 Green Screen £69.00 inc VAT | DUST COVERS 


SO FTWARE SALE hen o $29 | LISTING PAPER 


Í 30 Disc Box ............. 6.90 11 x 9.5” with micro 


most ACORNSOFT £2.99 inc VAT | 10050804 18.80 | Microvi E Peer 


# 45 Disc Box ... 


most OTHERS £1.99 inc VAT  »»sm 
VOLTMACE JOYSTICKS | MAIL ORDER 
3€ 1076 off list prices | ONE HIS 


| RX-BOFT £258.75 inc VAT ^ 
FX-80 377.20 inc var 


| Printer Pack SEES paper & BBC cable £8.05 inc VAT 
Discounted price inc VAT | Screen dump rom available for £11.50 inc VAT 


BJVOLT 14  Voltmace Delta 14B Joysticks ............................. 13.46 
BJVOLTAD Voltmace 14B/1 Adaptor BOX ...222.2.222.Ü11/.......1........... 13.36 
BJVOLT3T — Voltmace Delta 3B Twin Joysticks ... asatè 14:99 
BJVOLT3S Voltmace Delta 38 Single Joystick kue ar TTS 


SIDEWISE — SIDEWISE FITTED => =i KP810 
Wl. 9 | £289.00 inc VAT 


Á 
Printer price fM paper and BBC interface cable. 
Screen dump rom available for £11.50 inc VAT 
“SIDEWAYS” rom board for BBC Micro. 
No soldering required £39.33 ine VAT 
a ec BRANCHES — 
MAIL ORDER: 36-38 WEST STREET 
FAREHAM, HANTS. (0329) 230670 


SPECIAL OFFERS | SHOP/TECHNICAL: 59 WEST STREET 


urs : ; | FAREHAM, HANTS. (0329) 230671 
BOOK disc drive switchable with power | KINGS LYNN: 17 TENNYSON AVE. (0553) 3782 


supply, Plinth and Acorns DNFS 
only £409.00 inc VAT Postage 46p. Securicor £4.90 (per parcel) inc. VAT. 


I As. | — All prices include VAT 
400K single disc drive not P.S.U. and | Prices subject to variation without prior notification 


Acorn DNFS only £277.73 inc VAT | All offers subject to availability 
All prices include VAT ü TRADE, EDUCATIONAL 8 HMG ORDERS 
ñ (Phone for discounts) 
Large Stocks - 24 Hour Despatch 


59 West Street, Fareham, Hants (0329) 230671 


Es P — gó 
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The Statistics Package written especially for the BBC Micro 39e 


INSTAT is a general purpose statistics package for interactive data analysis. It is useful for 
statistics teaching and for any research requiring statistical analysis of data. 


Facilities include: 
9 easy data entry and editing @ calculations € summary statistics € powerful 
plotting © multiple regression 9 analysis of variance 9 multiway tables € random 
sample generation é macros 9 extensive help facilities e 


INSTAT is for disc machines only. 
Price (including postage and packing): 
Disk + 16K EPROM + manual £85 + VAT 


Additional copies £75 + VAT 
EPROM only (with 3+ copies) £40 + VAT 


Educational users: Discount of 25% on these prices. 


For further details contact: 
Alison Ansell, 
Statistical Services Centre, 
Department of Applied Statistics, University of Reading, 
Whiteknights, PO Box 217, Reading, Berks. RG6 2AN 
Tel: 0734 861239 (24 hour answering service) 


BULLETIN | ADVERTISING 
BOARDS | BETELC 


For advertising details please 


CORRECTION | contact 


Phyllida Vanstone 


on 
St. Albans 
(0727) 62613 


The number printed for | Don toi 
The Gnome at Home with | on 

last month's article on | ee an 
bulletin boards is incorrect. | St. Albans (0727) 62315 
The service is also now | . 
operating ona new number | PO A 
which is 01 888 8894. Please St. Albans 


note this change. Herts. 


BEEBUG SUPPLEMENT 


A lightpen or trackerball driven 
CAD package orientated to 
the production of schematic 
drawings, such as circuit dia- 
grams, flow charts, power 
systems, pipework diagrams, 
fluid logic diagrams and many 
similar professional and engin- 
eering applications. 


* Lightpen or trackerball driven. 


* Virtual screen 8x the BBC’s mode 4 

* Uses standard dot matrix printer in dual- 
density graphics mode to produce excellent 
quality diagrams. 

* Automatic parts list generation 

* Up to 640 symbols may be in use in any 
one diagram 

* Total symbol library unlimited in size 

* Create your own symbols with the lightpen 
on a highly magnified scale 

* Many electronic symbols already included 
in package. 


CIRKWIK Program Lightpen only version .. 6... ie £19.95 
CIRKWIK Program Trackerball/lightpen version ........ see £24.95 
CIRKWIK Program Grafpad/lightpen version ............ rr... £24.95 
DATAPEN Lightpen ...--.- 2 arva knr ke kaka n nn £25.00 
MARCONI Trackerball 2.2.0... lele le eee na e aa n £59.50 
ATARI Trak-Ball e caidan tenani alasan paca an aaa an tr HE £19.95 
ATARI BBC Interface .. 0.0... e nn £13.00 
MOUSE Interface ....... ll e e ek eee otie aa kk e kak n kk kaa ann £13.00 


S.A.E. for details of lightpen, CIRKWIK and other programs. 


DATAPEN MICROTECHNOLOGY LTD. Dept. BG3, Kingsclere Road, Overton, Hants. RG25 3JB 
TEL: (0256). 770488 


BEEBUG SUPPLEMENT 
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The only thing that seems to stand still on some 
colour monitors is the price: But at Opus we've now 
made our RGB High Resolution colour monitor even 
morë affordable — it's down to just £199.95, and 
the picture quality is as rock steady as ever. 
What's more we deliver within 48-hours and give 
you an unrivalled warranty plan to guarantee your 
peace of mind for the next two years. And if that's 
not enough our price includes carriage, VAT and 
connection leads. 

Our JVC monitor (580x470 pixels) has received 
ample praise from the computer press. Acorn User 
said: 

"... gave steadier pictures than the Microvitec 
Cub, and the colours were rather better." 


To: Opus Supplies Ltd, 


55 Ormside Way, Holmethorpe Industrial Estate, Redhill, Surrey. 


Please rush me the following: 
(PRICES INCLUDE VAT AND CARRIAGE) 


High Resolution colour monitor(s) at £199.95 each (inc. VAT) 


1 enclose a cheque for £ — or please debit my 


credit card account with the amount of £ _ 


My Access!" Barclaycard: (please tick) no. is: 


My computer is åå 


3 cus == = ux: a 


Personal Computer News added: 


" There is no doubt that the JVC range of ECM 
colour monitors is excellent value for money... 
there is no loss in quality of picture after long 
periods...” 


The unit has a 14” screen and is suitable 
for use with the BBC Micro, Electron, 
Sinclair QL, Lynx, Oric, Apple, IBM, 
Amstrad and RML 480Z and most 

other leading micros. 

Simply post the coupon below t 

Opus Supplies Limited, 

or telephone us quoting your 

credit card number. ; 


Name 


Address _ 


Telephone 


55 Ormside Way, 
Hoimethorpe Industrial ` 


= = = == em sm ma m en um mg 


1 


fam om om om 


n need to take outa 
tgage. ; 


The Organiser desk from Opus 

Supplies comes complete with castors and 
simple assembly instructions and our 
price includes VAT and free delivery. 


To order your system phone us on: 0737 65080 
or post the coupon to Opus Supplies Limited. 
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p Te: Opus Supplies Ltd, Å Á Name Pes NNUS 
55 Ormside Way, Holmethorpe industrial Estate, Redhill, Surrey. 
Please rush me the following: Address E - E 
- (PRICES INCLUDE VAT AND CARRIAGE) 
c Organiser Desk(s) at £59.95 each (inc. VAT) 
Telephone... Ð - 


55 Ormside Way,- x 


us Holmethorpe Industrial: 
Ar Jø Estate, Redhill; Surrey.. 
Opus Supplies Ltd”. TELEPHONE: 0737-65080 


credit card account with the amount of £ : 
My Access! Barclaycard: “(please tick) no. is: 


ü 
B 
g lencloeachequefor£ 1. or please debit my 
Li 
i 
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Simply light years ahea 
of the opposition 


Opus announce the biggest disc drive breakthrough for years — 
CHALLENGER. It could make every other disc system for the BBC micro 
outdated overnight. 


An amazing 3-in-1 design has produced Britain's first complete plug-in 
disc system for the BBC computer. No more complicated interface 
connections, soldering or track cutting, Challenger is an all-in-one disc 
system ready to plug straight into your computer. It's the simplest disc 
link- up ever and a winning combination that no other system can 
matc 


574" DOUBLE-SIDED 40/80 TRACK DISC DRIVE =PbE @əOwD 


DOUBLE DENSITY DISC INTERFACE 


SUPER FAST SOLID STATE RAM DISC - Upto 20 times fastert than disc die - 


and providing a massive 256 K of RAM 


ALL THIS IN A SINGLE UNIT FOR AN AMAZING £249.95 


And just look at the storage capacity of this remarkable stand-alone 
system. 

Our 514” disc drive and built in double-density disc interface — an 
extended version of the highly praised Opus DDOS, voted fastest 
system by ‘Acorn User’ and favourite choice of ‘A & B Computing’ — 
combine to give you a powerful 1 Megabyte system. But Challenger 
has a third dimension, a super fast Solid State RAM DISC for instant 
access to an additional 256 K of RAM. Effectively a lightning fast 
second disc drive which can be upgraded to Y? Megabyte capacity for 
only £49.95. It makes Challenger superior to a dual disc drive, giving 
faster access and less wear and tear on your drive. 


Challenger uses the same disc controller chip as the new BBC B + 
computer making it compatible with all leading software titles. Call us 
for our full compatibility listing. 

We've provided a selection of utilities on ROM and Challenger's disc 
drive is 40/80 track switchable. The extended DDOS takes no User 
RAM, PAGE, the position at which BASIC programs load, is left 
unchanged, normally staying at &OEOO, and Challenger dynamically 
moves files on the disc to overcome the ‘can't extend’ problem. 


Challenger’s price of £249.95 includes our unbeatable two year 
warranty, a full operating manual, VAT and free delivery. Call us now 
on 0737-65080 for details of our nationwide dealer network or simply 
post the coupon below. 


OPUS SUPPLIES THE DRIVE 

The Opus disc drive range has few rivals for quality, reliability, and 
sheer value for money. We've taken the best in Japanese disc drive 
technology and backed it with Britain's longest guarantee — an 
amazing two years. For full details of our extensive range of half- 
height 51⁄4” disc drives together with information on your nearest 
stockist, 'phone 0737-65080. 


OPUS — BRITAIN'S LEADERS IN DISC DRIVE INNOVATION 
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TELEPHONE Opus Supphes Ltd. 


== =m men oe ee m m ms | 


To: Opus Supplies Limited, 55 Ormside Way, Holmethorpe industrial Estate, Redhill, Surrey. m 
Í Please rush me the following: (PRICES INCLUDE VAT AND CARRIAGE) 8 
i Challenger Unit(s) £249.95 each g 
l RAM DISC upgrade(s) to 512K at £49.95 each fi 
4 I enclose a cheque for £ or please debit my credit card Å 
Á account with the amount of £ ü 
Ú My Access |. | Barclaycard no. is: | B 
Ë NAME - : 
i ADDRESS us. I 
j : 2 i 
L 
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PRICELESS 
OURS COST A LOT LE 


54 INCH DRIVES (less power supply) 


Cumana BBC Microcomputer compatible disk drives: 


retail price list. CSX100M 40 Track single sided (100K) £89.95 

Cumana disk drives supplied with formatting diskette, ek Tack engle sod (400K) pt 

drive connecting cable and comprehensive user manual. CDX200M 2 x 40 Track single sided (200K) £169.95 

Independent power supply, mains lead and moulded CDX800/S 2 x 80 Track double sided £209.95 

plug included. switchable (800K) 

5% INCH DRIVES Q.F.S. Double density disk filing system £79.95 

CS100 M 40 Track single sided (100K) £114.95 Now available double density disk £114.95 

CS100 40 Track single sided (100K) £129.95 interface for the Electron 

CS400 80 Track double sided (400K) £135.95 

CD1200M 2 x 40 Track single sided (200K) — £205.95 COS diri ad det d 22:98 

CD200 2 x 40 Track single sided (200K) £239.95 — CSX354 80 Track double sided (400K) £124.95 

Fran Heel double sided £255.95 — Cpx352 2 x 40 Track single sided (200K) £139.95 
CDX358 2 x 80 Double sided (800K) £214.95 

3% INCH DRIVES 

CS351 40 Track single sided (100K) £147.78 A selection of peripheral covers, diskettes 

CS354 80 Track double sided (400K) £119.95 and data cassettes are also available. 

CD352 2 x 40 Track single sided (200K) £260.83 For details contact Cumana. 

CD358 2 x 80 Double sided (800K) £219.95 


ALL PRICES INCLUSIVE OF VAT (DELIVERY CHARGES EXTRA} 
ALL 80 TRACK 514" DRIVES ARE SWITCHABLE TO 40 TRACK MODE 
ALL PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE 


Available from the following retail outlets: 
W. H. Smith, John Lewis Partnership, Greens Leisure, 
Laskys, Spectrum UK, Dixons. 


Area distributors: 
Eltec Home & Business Computers (Bradford) 0274 722512. 
HCCS Associates (Gateshead) 0632 821924. 


Hugh-Symons Distribution 
Services Ltd (Bournemouth) 
0202 26535. Kingdom Design 
(Belfast) 0232 643720. Microworld 
(Edinburgh) 031 228 1111. National 
Micro Centre (Stockport) 061 429 
8080. J. S. Simnett 
Computers (Kingston-upon- 
Thames) 01 541 1495 


+ National Dealer Network 


Fully assembled and tested before packaging 
12 months warranty 

Attractive hardwearing cabinets in BBC beige 
CSX/CDX range takes power from BBC micro 
CS 5%" drives carry BS 415 safety approval 
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AVAILABLE PRARY 


7 The best name in memory 


Cumana Limited, Pines Trading Estate, Broad Street, Guildford, Surrey, GU3 3BH. Telephone: Guildford (0483) 503121. Telex: 859380 


BEEBUG SUPPLEMENT 


